Apple Pascal 
Trickkiste 

Ron DeGroat u.a. 






□ I □ 





iEcoa» 

DEEÜE TEKT- 
INFO 




HUFFIN COGDE- 
MHPZnPPMU 
















































Apple Pascal Trickkiste 






















Apple Pascal 
Trickkiste 

Ron DeGroat u.a. 


Pandabooks, Berlin 


Titel der englischsprachigen Originalausgabe: 
Call-A.P.P.L.E. In Depth - All About Pascal 

© Copyright 1982 by A.P.P.L.E. COOP 

Deutsche Übersetzung: Bodo Meseke 
© Copyright 1985 Pandabooks GmbH 
ISBN 3-89058-030-0 


Printed in West Germany 


Inhalt 


Ron DeGroat 

Das Pascal + BAS IC-System 

9 

David N. Jones 

CODEMAP 

35 

Chris Wilson 

Patch für nicht eingelegte 
Boot-Disk 

41 

Dana Schwarte 

HUFFIN 

45 

Dr. Wo 

PUFFIN 

51 

Ron DeGroat 

Pascal-Speicherdiagnose (PMU) 

73 

William Janes 

RECOVER 

97 

Chris Wilson 

Pascal 1.1 Speichemutzung 

101 

Mike Rösing/ 

Keith McLauren 

Pascal Intern 

111 

Philip Ender 

PASCAUZAP 

133 


Ron DeGroat 

Die narrensichere 
Befehlseingabe 

139 

Allen W. Todd 

Aufbau eines Pascal-Disk- 
Directories 

149 

Alan J. Nayer 

Der Textdatei-Kopf 

155 

David Geddes 

Das Pascal-Datum 

163 

Chris Wilson 

Verbesserte Tastatur-Routine 

167 

Paul W. Mosher 

Strukturierter Zugriff auf das 
DOS-Directory 

175 

Roy Bollinger 

Terminal-unabhängige 

Bildschirmsteuerung 

183 

David Lieberman 

Kleinbuchstaben, Invers- 
Flash-Zeichen 

191 

Chris Wilson 

P-CODE DECODER 

195 

Chris Wilson 

Ein Pascal-Textformatierer 

211 

Dean Rosenhain 

Ein Pascal-Zeicheneditor 

239 



Zu diesem Buch ist eine beidseitig bespielte Diskette mit allen im Buch aufge¬ 
führten Programmen erhältlich. 

Sie können die Diskette über Ihre Buchhandlung beziehen oder gegen Vor¬ 
einsendung von DM 50,- (V-Scheck, bar) bei: 

Pandabooks 
Teltower Damm 168 
1000 Berlin 37 
(030) 815 80 69 
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Das Pascal- + BAS IC- 
System 


Einsatzmöglichkeiten 

Bisher waren Pascal und BASIC nicht miteinander kompatibel. Doch über 
die in diesem Artikel beschriebenen Routinen kann Pascal mit dem im ROM 
festgelegten BASIC Ihres APPLE-Computers operieren und interagieren. 
Hier eine Liste der Möglichkeiten, die Ihnen das Pascal + BASIC-System 
bietet: 

Ausführen von Pascal-, BASIC- oder DOS-Operationen, ohne neu boo¬ 
ten zu müssen. 

Speichern von BASIC-Programmen auf Pascal-Disketten. 

- Ausführen von BASIC-Programmen unter dem Pascal-Betriebssystem. 

- Aufruf von BASIC-Programmen unter Kontrolle von Pascal- 
Programmen. 

Speichern von mit BASIC entwickelten Assemblerprogrammen auf 
Pascal-Disketten. 

Aufruf von BASIC- und Monitor-ROM-Routinen unter Pascal. 

- Benutzung des BASIC-Monitors unter Pascal. 

Verwendung des UCSD-Assemblers zur Erzeugung von Maschinencode, 
der auf DOS 3.3-Disketten gespeichert und vom BASIC benutzt werden 
kann. 

- Einfache Programmierung eigener Pascal 4-BASIC-Mischprogramme. 
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Systemanforderungen: 

- APPLE-Pascal (II. 1 oder 1.1) 

- DOS 3.3 

Wenn Sie über das Pascal + BASIC-System verfügen, wird es unnötig, Pro¬ 
gramme, die schon für BASIC entwickelt worden sind, ein zweites Mal zu 
schreiben. Die meisten von ihnen lassen sich auf Pascal-Disketten speichern 
und mit dem Pascal-Betriebssystem benutzen. So habe ich zum Beispiel un¬ 
ter BASIC dreidimensionale Hi-Res-Grafikroutinen entwickelt, sie auf 
Pascal-Disketten gespeichert und dann in Pascal-Programmen verwendet. 

Das Herz des Pascal + BASIC-Systems besteht aus der Unit BASIC- 
STUFF und dem Hybridprogramm PBMENU, das auf diese Unit zugreift. 


Verzeichnis der Listings 

Listing Nr. 1 

PBMENU: Ein Pascal-Hybridprogramm, mit dem fast jede Rou¬ 
tine aus BASICSTUFF interaktiv benutzt werden kann. 

Listing Nr.2 

BASICSTUFF: Eine Unit, die es nach ihrem Einbau in die SY¬ 
STEM. LIBRARY gestattet, mit dem ROM-residenten BASIC zu 
interagieren, das sich gleichzeitig im Speicher befindet. 

Listing Nr. 3 

PBPROC: Externe Prozeduren, die von BASICSTUFF benutzt 
werden. 

Listing Nr.4 

DOS32K: Ein Pascal-Programm, das DOS 3.3-Masterdisketten 
in 32K-Disketten konvertiert, damit PBMENU beim Laden von 
DOS nicht überschrieben wird. 


10 


Wie man PBMENU benutzt 


PBMENU ist leicht zu bedienen, da seine Befehlsoptionen entweder selbster¬ 
klärend sind oder BASIC-Anweisungen entsprechen. 


Bildschirmausgabe von PBMENU: 

PASCAL + BASIC: BEFEHLSMENÜ 

BRUN 

BSAVE 

BLOAD 

RUN 

SAVE 

LOAD DOS 
CALL 
ROM CALL 
QUIT 

RECHTS- UND LINKSPFEIL ZUR CURSORBEWEGUNG 

LEER- ODER RETURN-TASTE FÜHRT GEWÄHLTEN BEFEHL AUS 

LOAD DOS - Lädt das DOS von einer Pascal-Datei in den Hauptspeicher, 
bindet es in das Pascal-Betriebssystem ein und ruft das jeweilige, ROM- 
residente BASIC auf. Diese Option geht davon aus, daß das DOS bereits auf 
einer Pascal-Diskette unter dem Namen “DOS.3.3.BIN“ gespeichert wurde 
(später mehr darüber). Wenn man diese Option wählt, wird das DOS in die 
Adressen $5600 bis 7FFF geladen und HIMEM: automatisch gesetzt, um es 
vor einem Über schreiben zu schützen. 

ROM CALL - Funktioniert wie der normale CALL-Befehl mit dem Unter¬ 
schied, daß das ROM vor dem Sprung eingeschaltet wird. ROM CALL rettet 
außerdem bestimmte Pascal-Informationen, die überschrieben werden 
könnten, tauscht die Pascal-Zero-Page gegen die BASIC-Zero-Page aus und 
stellt beim Rücksprung den alten Zustand wieder her. 

SAVE und BSAVE hängen automatisch das Suffix “.BAS“ oder “.BIN“ an 
den vom Benutzer angegebenen Dateinamen. RUN und BRUN stellen das 
entsprechende Suffix automatisch zur Verfügung. Alle anderen Befehlsop¬ 
tionen funktionieren genauso wie ihre BASIC-Entsprechungen. 
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Mit SAVE oder BSAVE erzeugte Dateien haben in ihrem ersten Block einen 
Record, der PBCODEINFO genannt wird und wichtige Informationen ent¬ 
hält (vgl. Listing Nr.2). Diese Informationen werden von RUN und BRUN 
benutzt und enthalten Angaben wie die Startadresse der Routine, die Code¬ 
länge und eine komplette Kopie der Zero-Page zur Zeit der Speicherung. 

Das PBMENU-Programm teilt den Hauptspeicher so auf, daß der BASIC- 
Teil des Systems einem 32k-Rechner entspricht. Wegen dieser Speicherbe¬ 
schränkung kann es Vorkommen, daß manche Programme für das 
Pascal + BASIC-System zu lang sind. Mit Hilfe von ein paar Tests kann man 
aber schnell herausbekommen, welche Programme man besser nicht benut¬ 
zen sollte. 

Das Pascal + BASIC-System bietet mehrere Möglichkeiten, ins BASIC und 
danach zurück zum Pascal zu gelangen. 


Wie man BASIC aufrufen kann: 

ROMCALL -8192 als Einsprungadresse für das ROM-residente BASIC. 
ROMCALL -155 oder -151 zum Eintritt in den Monitor. 

- LOADDOS zum Laden des DOS und Eintritt ins BASIC. 


Wie man ins Pascal zurückkommt: 

- CALL 7 vom BASIC 

- CALL 1016 vom BASIC 
“Ctrl-Y[RET]‘‘ vom Monitor 

- “7G[RET]‘‘ oder “3F8G[RET] vom Monitor 


Funktionsweise 

Die Idee ist ganz einfach: Das Pascal wird nach oben und das BASIC nach 
unten verschoben, damit sich die beiden Betriebssysteme nicht gegenseitig 
stören (s. Abbildung zur Speicheraufteilung). Tatsächlich teilen sich beide 
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Betriebssysteme den Speicherbereich über SDOOO, aber diese Teilung erfolgt 
störungsfrei, da nur die aktuell benötigte Speicherbank eingeschaltet wird. 
Das RAM der Language Card enthält das Pascal, während die ROMs auf 
der APPLE-Platine das BASIC enthalten. Zwischen beiden wird durch die 
Kontrollcodes $C088 und $C08A hin- und hergeschaltet (s. die Beschreibung 
im APPLE Language System Installation and Operating Manual). 


Speicheraufteilung unter PBMENU 

BASICSTUFF - Ohne BASICSTUFF ist PBMENU nicht funktionsfähig. 
Alle zur Hybridprogrammierung notwendigen Routinen wurden in der 
UNIT BASICSTUFF zusammengefaßt, die jedem Pascal-Programm mit der 
Deklaration USES BASICSTUFF zur Verfügung steht, nachdem sie in die 
SYSTEM.LIBRARY eingefügt worden ist. Hier eine kurze Beschreibung der 
bisher noch nicht erwähnten BASICSTUFF-Routinen: 

MOVEHEAP gestattet es Ihnen, Ihr Pascal + BASIC-System den jeweiligen 
Erfordernissen der Speicheraufteilung anzupassen. Wenn Sie zum Beispiel 
ein langes Pascal-Programm haben, das ein kurzes BASIC- oder Maschinen¬ 
programm aufruft, sollte der Heap nur ein wenig verschoben werden. Wenn 
Sie andererseits ein kleines Pascal-Programm verwenden, das ein langes 
BASIC-Programm benutzt, so ist es ggf. erforderlich, den Heap stark nach 
oben zu verschieben. Natürlich muß der Heap vor dem Rücksprung in den 
Command Level des Pascal-Betriebssystems wieder auf seine normale Start¬ 
position $C00 (3072) zurückgesetzt werden. 

Eine noch raffiniertere Technik besteht darin, den Heap nur ein wenig 
nach oben zu verschieben, um ein langes Pascal-Segment und ein kurzes 
BASIC-Programm zu benutzen, dann den Heap weiter nach oben zu setzen, 
ein kleineres Pascal-Segment aufzurufen und ein langes BASIC-Programm 
auszuführen. Damit das Pascal geschützt ist, wird HIMEM: automatisch auf 
die Untergrenze des Heap gesetzt, falls das DOS (das unterhalb des Heaps 
liegen muß) nicht geschützt ist. 


DISPLAY40 unterdrückt die Ausgabe der rechten Pascal-Textseite. Die mei¬ 
sten BASIC-Programme benutzen diesen Speicherbereich ($800 - BFF, die 
zweite Textseite). 

DISPLAY80 wird benutzt, um die rechte Seite der Textdarstellung unter 
Pascal wiederherzustellen. Diese Prozedur wird normalerweise unmittelbar 
vor Termination eines Pascal(Hybrid)-Programms aufgerufen. 


13 


FPBASIC ist eine Funktion, die den Wert TRUE liefert, wenn APPLESOFT 
im ROM gelagert ist. Enthält das ROM Integer-BASIC, so liefert FPBASIC 
den Wert FALSE. 


Unterschiede zwischen regulären und intrinsischen 
Units: 


Reguläre Unit 

Code der Unit wird zur 
Link-Zeit in das Hauptpro¬ 
gramm eingebunden. 
Hauptprogramm ist von der 
Unit unabhängig. 

Unit verschwendet ggf. Spei¬ 
cherplatz, da ihr Code in je¬ 
des Hauptprogramm noch¬ 
mals kopiert wird. 


Intrinsische Unit 

Code der Unit wird zur Lauf¬ 
zeit in den Speicher geladen. 

Hauptprogramm benötigt die 
Unit “on-line“ in der 
SYSTEM.LIBRARY. 

Unit spart Speicherplatz, da 
ihr Code nur einmal in der 
SYSTEM.LIBRARY gespei¬ 
chert wird. 


Mehr über Units 

Das APPLE-Pascal unterstützt zwei Arten von Units. Jede Art hat ihre Vor- 
und Nachteile. 

Wenn eine reguläre Unit mit dem Linker in ein Hauptprogramm einge¬ 
bunden wird, wird bei diesem Vorgang der Code dieser Unit tatsächlich in 
das Hauptprogramm eingefügt, so daß die Unit ein Teil des Programms 
wird. Das ist ein Vorteil, da das Programm dadurch von der Original-Unit 
unabhängig wird. Wenn man diese Unit jedoch sehr häufig benutzt, wird ihr 
Code immer wieder in die Hauptprogramme eingebunden, was zu einer un¬ 
nötigen Verschwendung von Diskettenkapazität führt. 

Mit der intrinsischen Unit verhindert man dieses platzverschwendende 
Kopieren des Unitcodes, indem man ihn in die SYSTEM.LIBRARY einbaut. 
Wenn nun das Hauptprogramm gestartet wird, wird der Code der Unit auto¬ 
matisch in den Hauptspeicher geladen. Das Hauptprogramm funktioniert 
aber nicht, wenn die SYSTEM.LIBRARY (in welche die Unit eingebunden 
sein muß) zur Laufzeit nicht zur Verfügung steht. 

Jede Unit besteht aus drei Teilen: Interface, Implementation und Initiali¬ 
sierung. 


14 


Monitor 

P-Code 

Interpreter 

BASIC (ROM) 

BIOS (2.Bank) 


I/O-Adressen 

SYSCOM 

J, PBMENU 

freier Speicher 

f Pascal 

f Pascal Heap 

BASIC 

DOS 

(falls gealden) 

entspricht 

einem 32K- 

Apple 

frei verfüg¬ 
barer Speicher¬ 
platz für BASIC- 
Programme 

BASIC & DOS 


$F800 

$E000 

i 

$D000 

$C000 

$B000 


$8001 


$5600 


$800 


Abb. 1 Speicherplatzaufteilung von PBMENU 
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Der Interface-Teil der Unit ist als einziger für das Hauptprogramm 
“sichtbar“. Die im Interface-Teil der Unit verwendeten Konstanten, Typen, 
Variablen, Funktionen und Prozeduren verhalten sich so, als wären sie Be¬ 
standteil des Hauptprogramms (d.h. sie sind global). 

Der Implementation-Teil ist nur der Unit bekannt und kann daher vom 
Hauptprogramm nicht benutzt werden. 

Der Initialisierungsteil wird beim Laden der Unit ausgeführt, bevor das 
Hauptprogramm gestartet wird. 


Das Kopieren von DOS auf Pascal-Disketten 

1) Kopieren Sie Ihre DOS 3.3-System-Master-Diskette mit einem Disketten¬ 
kopierprogramm (d.h. benutzen Sie nicht den INIT-Befehl und das FID- 
Programm). 

2) Löschen Sie die nicht im ROM befindliche BASIC-Version von der gera¬ 
de kopierten Diskette. 

Dadurch wird verhindert, daß das Pascal während des Bootens über - 
schrieben wird. 

3) Konvertieren Sie mit Hilfe des Pascal-Programms DOS32K die DOS 3.3- 
Master-Diskette in eine 32k-Disk. 

4) Starten Sie PBMENU (achten Sie darauf, daß Sie mindestens 22 zusam¬ 
menhängende, freie Diskettenblocks zur Verfügung haben). 

5) Rufen Sie das BASIC mit ROM CALL -8192 auf. 

6) Legen Sie die 32k-Master-Diskette in das Bootlaufwerk ein. 

7) Geben Sie “PR#6«Ret»‘‘ ein, um die Diskette zu booten und das DOS 
in den Hauptspeicher zu laden. 

8) Geben Sie “CALL 7“ ein, damit Sie wieder ins Pascal zurückkommen. 

9) Legen Sie wieder Ihre Pascal-Diskette in das Bootlaufwerk ein. 

10) Benutzen Sie den BSAVE-Befehl mit folgenden Parametern: 


DATEINAME = “DOS.3.3“ 
STARTADRESSE = 22016 
LÄNGE = 10751 


11) Re-initialisieren Sie das System durch Drücken der RESET-Taste. 

Nunmehr sollte sich DOS 3.3 auf Ihrer Pascal-Diskette befinden. 

Wenn Sie zwei Laufwerke haben, können Sie eines mit einer Pascal- und 
das andere mit einer BASIC-Diskette betreiben. Natürlich dürfen Sie den 
CATALOG-Befehl nicht auf eine Pascal-Diskette anwenden. Befindet sich 
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die BASIC-Diskette in Laufwerk Nr.2, so dürfen Sie nicht vergessen, “CA- 
TALOG.D2“ einzugeben. 


Ein paar Anmerkungen zur Hybridprogrammierung 

Bei fast allen Hybridprogrammen müssen folgende Operationen vorgenom¬ 
men werden, um Überschneidungen zwischen den beiden Betriebssystemen 
zu vermeiden: 

1) Im allgemeinen verschiebt man zunächst den Heap nach oben, um Platz 
für Maschinen- oder BASIC-Programme zu schaffen. Man kann auch 
den Heap verschieben, um Pascal Code Patches zu verbergen, aber dafür 
gibt es einfachere und bessere Methoden, die ich bald veröffentlichen 
möchte. 

2) Es ist wichtig, daß nur 40 Textspalten auf dem Bildschirm ausgegeben 
werden, wenn die Hauptspeicheradressen $800 bis $BFF (zweite Textsei¬ 
te) benutzt werden sollen. 

3) Schließlich müssen Sie, nachdem das Hybridprogramm gelaufen ist, den 
Heap wieder auf seine alte Adresse setzen, sonst kann es passieren, daß 
Sie für Programme wie den SYSTEM.EDITOR o.ä. nicht mehr genug 
Speicherplatz zur Verfügung haben. 

Das Programm PBMENU (Listing Nr.l) ist ein gutes Hybridbeispiel, nach 
dessen Muster Sie Ihre eigenen Programme schreiben können. Ein weiteres 
kurzes Beispiel finden Sie in Listing Nr.5. Das PROGRAM HYBRID de¬ 
monstriert, wie einfach Hybridprogrammierung sein kann, wenn die UNIT 
BASICSTUFF erst einmal in der Bibliothek steht. Das Programm beginnt in 
Pascal, führt ein BASIC-Programm namens DEMO aus, startet dann mit 
BRUN eine Maschinenroutine mit dem Namen MUSIC, springt ins Pascal 
zurück, ruft mit ROMCALL eine Monitorroutine auf und kehrt schließlich 
wieder zu Pascal zurück - ein echtes Hybridprogramm. Bevor man ein Pro¬ 
gramm wie HYBRID ausführen kann, müssen die Maschinenroutinen und 
das BASIC mit einem Programm wie PBMENU auf einer Pascal-Diskette 
gespeichert werden. Nebenbei bemerkt müssen die WRITE-Anweisungen in 
HYBRID eingeklammert werden, damit sich das Programm nicht aufhängt. 


Die Benutzung des Programms 

Wenn Sie das alte Pascal (II. 1) verwenden wollen, müssen Sie zwei Adressen 
(MAXCOL und SCR2) wie in Listing Nr. 3 gezeigt ändern. Wenn Sie ein ex- 
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ternes Terminal oder eine 80-Zeichen-Karte verwenden, verändert sich das 
Pascal-System geringfügig, so daß gewisse Modifikationen notwendig wer¬ 
den (z.B. sind die Bildschirm-Kontrollcodes anders, der Heap beginnt bei 
$800 anstelle von $C00 usw.). 

Es gibt zwei Methoden, das Pascal + BASIC-System zu installieren. Bei 
der ersten benutzt man BASICSTUFF in Form einer regulären Unit, was 
sich besonders zur Fehlersuche eignet. Bei der zweiten Methode wird BA¬ 
SICSTUFF als intrinsische Unit in die SYSTEM.LIBRARY eingebunden. 
Diese Methode eignet sich besser für die normale Hybridprogrammierung. 

Methode Nr.l: 

Zu Testzwecken kompilieren Sie die UNIT BASICSTUFF als 
Teil des Programms PBMENU. Das geschieht ganz einfach da¬ 
durch, daß man die gesamte Unit hinter den Programmanfang 
kopiert. Dabei müssen nur zwei kleine Änderungen vorgenom¬ 
men werden: Zunächst muß man die Unit in eine reguläre Unit 
verwandeln, indem man den Text “INTRINSIC CODE 25 CO¬ 
DE 26“ aus dem Kopf der Unit löscht. Als zweites muß der 
Punkt (.) am Ende der Unit in ein Semikolon (;) umgewandelt 
werden, damit der Compiler nicht schon an dieser Stelle abbricht, 
bevor er das Hauptprogramm erreicht. Wenn diese Änderungen 
eingetragen sind, können Sie das Hauptprogramm und die Unit 
zusammen kompilieren und mit den externen Prozeduren 
(PBPROC) verbinden. Wenn dann alle Routinen aus BASIC¬ 
STUFF getestet sind und wunschgemäß laufen, kann die Unit 
wieder in eine INSTRINSIC UNIT zurückverwandelt, separat 
kompiliert, mit den Maschinenroutinen verbunden und in der 
SYSTEM.LIBRARY installiert werden. 

Methode Nr.2: 

Vielleicht wollen Sie BASICSTUFF gleich in die SYSTEM. 
LIBRARY einbauen. In diesem Fall muß die in Listing Nr.2 ab¬ 
gedruckte UNIT BASICSTUFF kompiliert und mittels des 
SYSTEM.LINKER mit den assemblierten Prozeduren aus List¬ 
ing Nr.3 verbunden werden. Diese so kompilierte und ver¬ 
schränkte Unit muß dann mit dem Hilfsprogramm APPLE3: 
LIBRARY in der SYSTEM.LIBRARY installiert werden. Da¬ 
nach kann man jedes Hybridprogramm (wie z.B. PBMENU) von 
der Unit getrennt kompilieren und benutzen, um die faszinieren¬ 
de Welt des Pascal + BASIC-Systems zu erforschen. Weitere Ein¬ 
zelheiten über die Benutzung des Compilers, Assemblers, Linkers 
oder der Bibliothek finden Sie in Ihren Pascal-Handbüchern. 
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Schlußbemerkung 

Es dauert vielleicht ein Weilchen, bis das Pascal + BASIC-System installiert 
ist, wenn das System aber läuft, haben Sie nicht nur eine Menge über Ihren 
Computer gelernt, sondern Ihnen stehen dann auch die außergewöhnlichen 
Möglichkeiten eines Hybridsystems zu Verfügung, mit dem Sie viele neue 
und interessante Phänomene entdecken können. 


(* LISTING #1: PBMENU, EIN PASCAUBASIC *) 

(* HYBRID-PROGRAMM *) 

(* *) 

(* VON RON DEGROAT 3/81 *) 


(*$S+,V-*) 
PROGRAM PBMENU; 


USES BASICSTUFF; 

CONST BAS= , .BAS'; (* Suffixe fuer Filenamen *) 
BIN= *.BIN'; 

NOTHING="; 


START0FHEAP=3072; (* Mit 80 Col Karte : *) 
(* Start bei $800 *) 


VAR HOME,ERASEOL,BELL,CH :CHAR; 

F :FILE; 

TESTNAME,FILENAME ;STRING[25]; 

SUFFIX :STRING[5]; 

ADDR,CODELEN,NUMBLKS,I :INTEGER; 

DONE :BOOLEAN; 


PROCEDURE DOIT(CHOICE:INTEGER); FORWARD; 

PROCEDURE PROMPTAT(LINE:INTEGER; MESSAGE:STRING); 
BEGIN 

GOTOXY(0,LINE); 

WRITE(MESSAGE,ERASEOL); 

END; (♦PROMPTAT*) 


PROCEDURE IOERRCHK; 

VAR IOERR:INTEGER; 

BEGIN 

IOERR:=I0RESULT; 

IF IOERROO THEN BEGIN 
CLOSE(F); 

WRITELN(BELL); 

WRITELN(’EA-FEHLER NR.*.IOERR); 
IF I0ERR=10 THEN 
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WRITELN('KEIN FILE TESTNAME); 
WRITE('WEITER MIT LEERTASTE'); 
READ(CH); EXIT(DOIT); 

END; 

END; (»IOERRCHK») 

PROCEDURE FILECHK; 

BEGIN 

TESTNAME:=CONCAT(FILENAME,SUFFIX); 
(♦$1-*) 

RESET(F,TESTNAME); IOERRCHK; 
(*$I+*) 

CLOSE(F); 

END; 

PROCEDURE GETFILENAME; 

BEGIN 

PR0MPTAT(0,'FILENAME ==> '); 
READLN(FILENAME); 

END; 


PROCEDURE GETADDR(PROMPT:STRING); 
BEGIN 

PROMPTAT(2,PROMPT); 

READLN(ADDR); 

END; 


PROCEDURE BINLOAD; 

BEGIN 

PROMPTAT(22,'ERFORDERT VOLLSTAENDIGEN FILE NAMEN'); 
PROMPTAT(23,'INCLUSIVE SUFFIX (BAS,BIN,CODE)'); 
GETFILENAME; 

SUFFIX:=NOTHING; FILECHK; 

GETADDR('LADEADRESSE => ’); 

BLOAD(FILENAME,ADDR); 

END; (»BINLOAD*) 


PROCEDURE BINSAVE; 

BEGIN 

GETFILENAME; 

GETADDR(’STARTADR ==> '); 
PROMPTAT(4, ’LAENGE IN BYTES => '); 
READLN(CODELEN); 

BSAVE(FILENAME,ADDR,CODELEN); 

END; (»BINSAVE») 


PROCEDURE BASICSAVE; 
BEGIN 

GETFILENAME; 
SAVE(FILENAME); 

END; (»SAVE») 


PROCEDURE BASICRUN; 
BEGIN 

SUFFIX:=BAS; 
GETFILENAME; FILECHK; 
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RUN(FILENAME) 
END; (*RUN*) 


PROCEDURE BINRUN; 

BEGIN 

SUFFIX:-BIN; 
GETFILENAME; FILECHK; 
BRUN(FILENAME); 

END; (*BRUN*) 


PROCEDURE CALLIT; 

BEGIN 

GETADDR(*AUFZURUFENDE ADR ==> »); 
CALL(ADDR); 

END; (*CALL*) 


PROCEDURE ROMCALLIT; 

BEGIN 

GETADDR('AUFZURUFENDE ROM ADR ==> ') 
ROMCALL(ADDR); 

END; (♦ROMCALL*) 

PROCEDURE DOS; 

BEGIN 

FILENAME:='DOS.3.3 1 ; SUFFIX:=BIN; 
FILECHK; 

WRITE(*LADE DOS...*); 

LOADDOS; 

END; 


PROCEDURE DOIT; 
BEGIN 

CASE CHOICE OF 
0:BINRUN; 

1:BINLOAD; 
2:BINSAVE; 
3-.BASICRUN; 
4:BASICSAVE; 
5:DOS; 

6:CALLIT; 

7:ROMCALLIT; 

8:DONE:=TRUE; 
END; (*CASE*) 
END; (*DOIT*) 


PROCEDURE MENUOPTIONS; 

CONST NUM0PTI0NS=9; 

STARTMENU=3; 

SP=* *; 

TYPE OPTIONS=STRING[10]; 

VAR MENU:PACKED ARRAY[0..NUMOPTIONS] 
OF OPTIONS; 


NEXT,SELECTION:INTEGER; 

INVERSE,NORMAL, 

LEFT,RIGHT:CHAR; 


PROCEDURE INITMENU; 

BEGIN 

MENU[0] :=5 f BRUN'; 

MENüflls-’BLOAD'; 

MENU[2]:='BSAVE'; 

MENU[3]:= , RUN I ; 

MENU[4]r^’SAVE*; 

MENU[5]:= f LOAD DOS 1 ; 

MENU[6]:« , CALL , j 
MENU[7]:= ! ROM CALL 1 ; 

MENU[8]:= , QUIT , j 
SELECTION:=0; 

END; (*INITMENU*) 

PROCEDURE DISPLAYMENU; 

BEGIN 

WRITE(HOME); 

WRITE('PASCAL+BASIC: HAUPTMENUE*); 

GOTOXY(0,STARTMENU); 

FOR I:=0 TO NUMOPTIONS-1 DO 
BEGIN 

WRITELN(SP:14,MENU[I]); 

WRITELN; 

END; 

PROMPTAT(22,»LINKS- UND RECHTSPFEILE ZUM BEWEGEN DES CURSORS 1 ); 
PROMPTAT(23, 1 MIT LEER- ODER RETURNTASTE WIRD OPTION AUSGEFUEHRT 1 ) 
END; 

PROCEDURE MAKESELECTION; 

BEGIN 

REPEAT 

GOTOXY(0,STARTMENU+2*SELECTION); 

WRITE(SP:14,INVERSE,MENU[SELECTION]); 

READ(KEYBOARD.CH); 

IF (CH=LEFT) OR (CH=RIGHT) THEN 
BEGIN 

GOTOXY(0,STARTMENU+2*SELECTION); 

WRITELN (NORMAL, SP: 14, MENU [ SELECTION ]) ; 

IF CH=RIGHT THEN NEXT:=1 
ELSE NEXT:=-1; 

NEXT:=NEXT+NUMOPTIONS; 

SELECTION:=(SELECTION+NEXT) MOD NUMOPTIONS; 

END 

UNTIL CH=SP; 

WRITE(NORMAL,HOME); 

END; 


PROCEDURE MENUOPTIONS; 

CONST NUMOPTIONS=9; 
STARTMENU=3; 

SP=* *; 

TYPE OPTIONS=STRING[10]; 
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VAR MENUzPACKED ARRAY[0..NUMOPTIONS] 

OF OPTIONS; 

NEXT,SELECTION:INTEGER; 

INVERSE,NORMAL, 

LEFT,RIGHTzCHAR; 

PROCEDURE INITMENU; 

BEGIN 

MENU[0]z='BRUN'; 

MENU[1]:='BLOAD'; 

MENU[2]:='BSAVE'; 

MENU[3]:='RUN'; 

MENU[4]:='SAVE'; 

MENU[5]:='L0AD DOS'; 

MENU[6]:='CALL'; 

MENU[7]:='ROM CALL'; 

MENU[8]:='QUIT'; 

SELECTION:=0; 

END; (»INITMENU*) 

PROCEDURE DISPLAYMENU; 

BEGIN 

WRITE(HOME); 

WRITE('PASCAL+BASIC: HAUPTMENUE'); 

GOTOXY(0,STARTMENU); 

FOR I:=0 TO NUMOPTIONS-1 DO 
BEGIN 

WRITELN(SP:14,MENU[I]); 

WRITELN; 

END; 

PROMPTAT(22,'LINKS- UND RECHTSPFEILE ZUM BEWEGEN DES CURSORS'); 
PROMPTAT(23,'MIT LEER- ODER RETURNTASTE WIRD OPTION AUSGEFUEHRT'); 
END; 

PROCEDURE MAKESELECTION; 

BEGIN 

REPEAT 

GOTOXY(0,STARTMENU+2*SELECTION); 

WRITE(SP:14,INVERSE,MENU[SELECTION]); 

READ(KEYBOARD,CH); 

IF (CH=LEFT) OR (CH=RIGHT) THEN 
BEGIN 

GOTOXY(0,STARTMENU+2*SELECTION); 

WRITELN(NORMAL,SP:14,MENU[SELECTION]); 

IF CH=RIGHT THEN NEXT:=1 
ELSE NEXT:—1; 

NEXT:-NEXT+NUMOPTIONS; 

SELECTION:=(SELECTION+NEXT) MOD NUMOPTIONS; 

END 

UNTIL CH=SP; 

WRITE(NORMAL,HOME); 

END; 

BEGIN (»MENUOPTIONS*) 

INVERSE:=CHR(18); (*CTL-R*) 

N0RMAL:=CHR(20); (*CTL-T*) 


RIGHT:=CHR(21); (*CTL-U, -> *) 

LEFT:=*CHR(8); (*CTL-H, <- *) 

DONE:=FALSE; 

INITMENU; 

REPEAT 

DISPLAYMENU; 

MAKESELECTION; 

DOIT(SELECTION); 

UNTIL DONE; 

END; (*MENU*) 


BEGIN (*MAIN PROGRAM*) 

(♦Die hier verwendeten Ctrl-Zeichen koennen bei*) 
(♦externen Terminals, Videokarten usw. ggf, abweichen*) 

BELL:=CHR(7); (*CTL-G*) 

HOME:=CHR(12); (*CTL-L*) 

ERAS EOL:=CHR(29); (*CTL-]*) 

(♦Nur linke Bildschirmhaelfte anzeigen*) 

DISPLAY40; 

(*HEAP von $C00 nach $8001 verschieben*) 
MOVEHEAP(STARTOFHEAP,-32767); 

MENUOPTIONS; 

DISPLAY80; 

MOVEHEAP(-32767,STARTOFHEAP); 

END. 


(*********&************************) 
(* LISTING #2: UNIT BASICSTUFF *) 

(♦ *) 
(* VON RON DEGROAT 3/81 *) 


(*$S+,V-*) 

UNIT BASICSTUFF; INTRINSIC CODE 25 DATA 26; 


(* Entfernt man "INTRINSIC CODE 25 DATA 26* *) 
(* so wird BASICSTUFF zur regulaeren Unit. *) 


(* Diese Unit muss kompiliert, mit den in *) 
(* Listing Nr. 3 abgebildeten externen *) 
(* Prozeduren gelinkt und in die *) 
(* SYSTEM.LIBRARY eingebunden werden. *) 


INTERFACE 
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TYPE UNITSTR=STRING[25] 


VAR BASZERPG:PACKED ARRAY[0..255] OF 0..255; 

UNITFID:FILE; 

PROCEDURE LOADDOS; 

PROCEDURE DOSRESET; 

PROCEDURE DISPLAY40; 

PROCEDURE DISPLAY80; 

FUNCTION FPBASIC:BOOLEAN; 

PROCEDURE RUN(FILENAHE:UNITSTR); 

PROCEDURE SAVE(FILENAME;UNITSTR); 

PROCEDURE BRUN(FILENAME:UNITSTR); 

PROCEDURE CALL(ADDR:INTEGER); 

PROCEDURE ROMCALL(ADDR:INTEGER); 

PROCEDURE MOVEHEAP(OLDLOC,NEWLOC;INTEGER); 

PROCEDURE BLOAD(FILENAMEE:UNITSTR; BEGINADDR:INTEGER); 
PROCEDURE BSAVE(FILENAME;UNITSTR; BEGINADDR,CODELEN:INTEGER) 


IMPLEMENTATION 

CONST DOSLOADADDR=22016; 

DOSINIT=23940; (* $5D84 *) 

TYPE MAGIORECORD CASE BOOLEAN OF 
TRUE:(INTPART:INTEGER); 

FALSE:(PTRPART: A INTEGER); 

END; 

BYTE=0..255; 

PAGEOFMEM=PACKED ARRAY[0..255] OF BYTE; 
VAR CHEAT,SOURCE,DEST:MAGIC; 

SUFFIX:STRING[5]; 


NUMBLKS,I,IO, 

HIMEM,HIMEMADDR f 

ENDADDR,RUNADDR,LOADADDR:INTEGER; 

DOSLOADED:BOOLEAN; 

PBCODEINFO;PACKED RECORD 

CODELENG,CODEADDR;INTEGER; 

NAME:STRING[25]; 

STARTADDR:INTEGER; 

BASICZERPG:PAGEOFMEM; 

COMMENT:STRING; 

FILLER:ARRAY[0..71] OF INTEGER; 
END; 


PROCEDURE CALL; EXTERNAL; 
PROCEDURE ROMCALL; EXTERNAL; 
PROCEDURE DOSRESET; EXTERNAL; 
PROCEDURE DISPLAY40; EXTERNAL; 
PROCEDURE DISPLAY80; EXTERNAL; 
PROCEDURE INITBASZERPG; EXTERNAL; 
FUNCTION FPBASIC; EXTERNAL; 


PROCEDURE POKEWORD(ADDR,DATA:INTEGER); 

BEGIN 

CHEAT.INTPART:-ADDR; 

CHEAT.PTRPART":-DATA; 

END; (*POKE*) 

FUNCTION PEEKWORD(ADDR:INTEGER):INTEGER; 

BEGIN 

CHEAT.INTPART:-ADDR; 

PEEKWORD: -CHEAT. PTRPART A ; 

END; (*PEEK*) 

PROCEDURE MOVEHEAP; 

(♦HEAP beginnt normalerweise bei $COO (3072) *) 

CONST NP-90; (* TOP OF HEAP *) 

VAR HEAPINFO,HPSTOP,HEAPPTR,LEN, 

DISPLACEMENT:INTEGER; 

HEAP:"INTEGER; 

BEGIN 

HEAP INFO:-PEEKWORD(98)+l4; 

HPSTOP:-HEAPINFO+112; 

DISPLACEMENT: -NEWLOC-OLDLOC; 

HIMEM: -NEWLOC; 

(♦Heaplaenge ermitteln*) 

MARK(HEAP); (*Heap so klein wie*) 
RELEASE(HEAP); (*moeglich machen*) 

LEN:-PEEKWORD(NP)-OLDLOC; 

(♦Setze NP (TOP OF HEAP) fest*) 

POKEWORD(NP,PEEKWORD(NP)+DISPLACEMENT); 


(♦Zeiger aendern*) 

FOR I:-0 TO 2 DO (*System Heap Zeiger*) 

BEGIN 

HEAPPTR:-PEEKWORD(HEAPINFO+I* 2); 

POKEWORD( HEAPPTR, PEEKWORD (HEAPPTR) +DISPLACEMENT) ; 
END; 

HEAPPTR:-PEEKWORD(HEAPINFO); (*Zeiger verschieben*) 
REPEAT 

POKEWORD(HEAPINFO,HEAPPTR+DISPLACEMENT); 

HEAPINFO:-HEAPINFO+2; 

HEAPPTR:-PEEKWORD(HEAPINFO); 

UNTIL (HEAPINFO>HPSTOP); 


(*Heap verschieben*) 

SOURCE.INTPART:-OLDLOC; 

DEST.INTPART:-NEWLOC; 

MOVELEFT(SOURCE.PTRPART",DEST.PTRPART",LEN); 
END; (*MOVEHEAP*) 

PROCEDURE SAVEFILE(FILENAME:UNITSTR; 

BEGINADDR,CODELEN:INTEGER); 
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BEGIN 

CHEAT.INTPART:=BEGINADDR; 

PBCODEINFO.BASICZERPG:=BASZERPG; 

NUMBLKS:*(CODELEN + 511) DIV 512; 
REWRITE(UNITFID,FILENAME); 
IO:=BLOCKWRITE(UNITFID,PBCODEINFO,1,0); 

FOR I:«l TO NUMBLKS DO BEGIN 
IO:=BLOCKWRITE(UNITFID,CHEAT.PTRPART A ,1,1); 
CHEAT.INTPART:=CHEAT.INTPART+512; 

END; 

CLOSE(UNITFID,LOCK); 

END; (♦SAVEFILE*) 

PROCEDURE BSAVE; 

BEGIN 

WITH PBCODEINFOR DO BEGIN 
NAME:=CONCAT(FILENAME,*.BIN'); 

STARTADDR:=BEGINADDR; 

CODELENG:=CODELEN; 

SAVEFILE(NAME,BEGINADDR,CODELEN); 

END; 

END; (*BSAVE*) 

PROCEDURE SAVE; 

BEGIN 

WITH PBCODEINFO DO BEGIN 
NAME:=CONCAT(FILENAME,*.BAS 1 ); 

STARTADDR:=BASZERPG[104]*256+BASZERPG[103]; 
ENDADDR:=BASZERPG[176]*256+BASZERPG[175]; 
CODELENG:=ENDADDR-STARTADDR+1; 

SAVEFILE(NAME,STARTADDR,CODELENG); 

END; 

END; (*SAVE*) 

PROCEDURE BLOAD; 

BEGIN 

CHEAT.INTPART:=BEGINADDR; 

Is-1; 

RESET(UNITFID,FILENAME); 

WHILE NOT EOF(UNITFID) DO 
BEGIN 

IO:=BLOCKREAD(UNITFID,CHEAT.PTRPART A ,1,1); 
Is-I+1; 

CHEAT.INTPART:=CHEAT.INTPART+512; 

END; 

CLOSE(UNITFID,LOCK); 

END; (*BLOAD*) 

PROCEDURE SETHIMEM; 

VAR HMiPACKED ARRAY[0..1] OF BYTE; 

BEGIN 

(♦Integer in Bytearray konvertieren*) 
M0VELEFT(HIMEM,HM,2); 

BASZERPG[HIMEMADDR]:=HM[0]; 

BASZERPG[HIMEMADDR+1]:=HM[1]; 

END; 


PROCEDURE CONNECT(CSWL,CSWH,KSWL,KSWH:BYTE); 
BEGIN 

BASZERPG[54]:-CSWL; BASZERPG[55]:=CSWH; 
BASZERPG[56]:-KSWL; BASZERPG[57]:-KSWH; 

END; 

PROCEDURE LOADFILE(FILENAME:UNITSTR); 

BEGIN 

FILENAME:=CONCAT(FILENAME,SUFFIX); 
(♦PBCODEINFO holen*) 

RESET(UNITFID,FILENAME); 

IO: -BLOCKREAD(UNITFID, PBCODEINFO, 1,0); 
CLOSE(UNITFID.LOCK); 

BASZERPG:-PBCODEINFO.BASICZERPG; 

LOADADDR:-PBCODEINFO.STARTADDR; 

IF DOSLOADED THEN C0NNECT(189,94,129,94) 
ELSE C0NNECT(240,253,27,253); 

IF SUFFIX-'.BAS' THEN (*ERR BYTE loeschen*) 
P0KEW0RD(L0ADADDR-1,0); 

BLOAD(FILENAME,LOADADDR); 

END; (»LOADFILE*) 

PROCEDURE RUN; 

BEGIN 

SUFFIX:='.BAS'; 

LOADFILE(FILENAME);; 

SETHIMEM; 

ROMCALL(RUNADDR); 

END; (*RUN*) 

PROCEDURE BRUN; 

BEGIN 

SUFFIX:-'.BIN'; 

LOADFILE(FILENAME); 

ROMCALL(LOADADDR); 

END; (*BRUN*) 


PROCEDURE LOADDOS; 

BEGIN 

BLOAD('DOS.3.3,BIN'.DOSLOADADDR); 

DOSLOADED:=TRUE; 

HIMEM:-DOSLOADADDR; (* $5600 *) 
SETHIMEM; 

(* DOS Vektoren von Seite drei holen *) 
SOURCE.INTPART:=24145; (* $5E51 *) 

DEST.INTPART:=976; (* $3D0 *) 

MOVELEFT(SOURCE.PTRPART*,DEST.PTRPART*,47); 
DOSRESET; (»SOFT ENTRY Vektor aendern*) 
ROMCALL(DOSINIT); 

END; (»DOS») 

PROCEDURE INITPBCODEINFO; 

BEGIN 

WITH PBCODEINFO DO 
BEGIN 

CODELENG:=0;CODEADDR:=1; 

FILLCHAR(NAME,25, 1 '); 

STARTADDR:=0; 

FOR I:=0 TO 255 DO BASICZERPG[I]:=0; 
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FOR I:=0 TO 71 DO FILLER[I]:=0; 

COMMENT:= 1 P+B BY RON DEGROAT 2/81*; 

END; 

END; (*INITPB*) 

BEGIN (*Hauptprogramm*) 

DOSLOADED:=FALSE; 

HIMEM:=3072; (* $COO, unteres Heapende*) 

INITPBCODEINFO; INITBASZERPG; 

IF FPBASIC THEN BEGIN 
RUNADDR:=-10906; (* $D566 *) 

HIMEMADDR:=115; (* $73-74*) 

END 

ELSE BEGIN 

RUNADDR:=-4116; (* $EFEC *) 

HIMEMADDR:=76; (* $4C-4D*) 

END; 

END, (* f . f in *umwandeln, wenn Unit und Hauptprograram*) 
(♦gemeinsam kompiliert werden sollen *) 


•LISTING #3: PBPROC, VON BASICSTUFF VERWENDETE ROUTINEN 
;V0N RON DEGROAT 3/81 


;Adresse vom Stack holen 


.MACRO POP ;FORMAT: POP ADDR 

PLA 

STA %1 

PLA 

STA %1+1 
.ENDM 

;Adresse auf Stack ablegen 


.MACRO PUSH ;FORMAT: PUSH ADDR 

LDA %1+1 

PHA 

LDA %1 

PHA 

.ENDM 


;Subroutine fuer ROM-Aufruf 


.MACRO RCALL ;FORMAT: RCALL ADDRESS 
STA 0C08A ;ENABLE ROM 
JSR %1 

STA 0C088 ;RE-ENABLE RAM 

.ENDM 


;Daten oder Routine laden (maximal 256 Bytes) 

.MACRO LOAD ;FORMAT: 

LDY #00 ;LADE SOURCE,DEST,LEN 

$1 LDA %1,Y 
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STA %2,Y 
INY 

CPY #%3 
BNE $1 
.ENDM 

.PUBLIC BASZERPG 


SETNORM 

.EQU 

0FE84 


INIT 

.EQU 

0FB2F 


SETVID 

.EQU 

0FE93 


SETKBD 

.EQU 

0FE89 


FPCHRGET.EQU 

0F10A 


CHRGET 

.EQU 

OBO 


MONVEC 

.EQU 

03F0 


ZERPAG 

.EQU 

0000 


STK 

.EQU 

0100 


DBUF 

.EQU 

03A0 

;DISK INFO 

MAXCOL 

.EQU 

0DB7C 

;0D9B9 FUER 

SCR2 

.EQU 

0DBA6 

;0D9CB FUER 


•PROC INITBASZERPG 

.REF ZERTEMP,STKTEMP 

LOAD ZERPAG,ZERTEMP,000 

LOAD STKTEMP,ZERPAG,000 ;LOESCHEN 

RCALL INITZPG 

LOAD ZERPAG,BASZERPG,000 

LOAD ZERTEMP,ZERPAG,000 

RTS 

INITZPG JSR SETNORM 
JSR INIT 
JSR SETVID 
JSR SETKBD 

LOAD FPCHRGET,CHRGET,01C 
RTS 


.FUNC FPBASIC 


;Wenn Applesoft in ROM, dann FPBASIC ■ TRUE 
.REF RETPAS 

STA 0C08A ;R0M AKTIVIEREN 

POP RETPAS ;PASCAL RUECKSPRUNGADRESSE RETTEN 

PLA ;OFFSET AUSSER ACHT LASSEN 

PU 

PU 

PU 

LDY #00 
LDA 0E000 
CMP #04C 
BNE FALSE 
INY 


;INTEGER ODER FLOATING POINT BASIC 
;SPRUNG, WENN INTEGER BASIC 
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FALSE 


TYA ;LSB = 1 WENN FP 

PHA ;LSB = 0 WENN INT 

PHA 

PUSH RETPAS 

STA 0C088 ;RAM WAEHLEN 
RTS 


.PROC ROMCALL,1 


;Zero Pages austauschen, Pascal retten, ROMs einschalten 
;Danach JSR und bei Ruecksprung alten Zustand wiederherstellen 


.DEF ZERTEMP,STKTEMP,DEST,RETPAS 
.DEF SOFTEV,PWREDUP 

LOAD ZERPAG,ZERTEMP,000 
LOAD BASZERPG,ZERPAG,000 
LOAD DBUF,BUFTEMP,012 

LOAD MVEC,M0NVEC,010 
LOAD RETJMP,007,003 


POP RETPAS 
POP DEST 
RCALL ENTRY 
PUSH RETPAS 


PASCAL RUECKSPRUNGADRESSE RETTEN 
ZIELADRESSE HOLEN 
INDIREKTER ZIELAUFRUF 

PASCAL RUECKSPRUNGADRESSE WIEDERHERSTELLEN 


jDiskinforraationen wiederherstellen, Pascal-Nullseite gegen 
;BASIC-Nullseite austauschen und Kaltstartbyte loeschen 

LOAD BUFTEMP,DBUF,012 

LOAD ZERPAG,BASZERPG,000 

LOAD ZERTEMP,ZERPAG,000 

STY 03F4 ;KALTSTARTBYTE LOESCHEN 

RTS 

;Stack retten und nach DEST springen 

ENTRY TSX 

STX SAVESP 

LOAD STK,STKTEMP,000 
JMP @DEST 

RESTORE LOAD STKTEMP,STK,000 
LDX SAVESP 
TXS 
RTS 

MVEC .WORD 0FA59 ;BRK 

SOFTEV .WORD 0E003 
PWREDUP .BYTE 045 

JMP 0FF59 ;RESET 

RETJMP JMP RESTORE 
JMP RESTORE 
.WORD 0FF65 

DEST .WORD 00 
RETPAS .WORD 00 



SAVESP .BYTE 00 
ZERTEMP .BLOCK 0100 
STKTEMP .BLOCK 0100 
BUFTEMP .BLOCK 012 


.PROC DOSRESET 
.REF SOFTEV,PWREDUP 


LDA #OBF 
STA SOFTEV 
LDA #05D 
STA SOFTEV+1 
LDA #0F8 
STA PWREDUP 
RTS 

.PROC CALL,1 

.REF RETPAS,DEST 

POP RETPAS 
POP DEST 
PUSH RETPAS 
JMP @DEST 

.PROC DISPLAY40 


;RESET VEKTOR ZEIGT 
;AUF DOS 

;KALTSTARTBYTE 


LDA 0C083 
LDA 0C083 
LDA #OEA 
STA SCR2 
STA SCR2+1 
LDA #27 
STA MAXCOL 
LDA 0C088 

RTS 


RAM AUF 2. BANK 

ZUM SCHREIBEN EINSCHALTEN 

NOP 


;GROESSTE SPALTENNUMMER - 39 

;1. BANK ANWAEHLEN UND GEGEN SCHREIBEN 
;SCHUETZEN 


.PROC DISPLAY80 


LDA 0C083 
LDA 0C083 
LDA #OBO ;BCS 
STA SCR2 
LDA #011 
STA SCR2+1 

LDA #04F ;GROESSTE SPALTENNR. - 79 

STA MAXCOL 
LDA 0C088 
RTS 


.END 
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(********************************** ) 
(♦ LISTING #4: 32K DOS CONVERSION *) 
(* *) 
(♦ VON RON DEGROAT 3/81 *) 

(******♦***^+******^*^^*^40»:^^^^) 


PROGRAM DOS32K; 


(♦Dieses Programm modifiziert eine DOS 3.3 Diskette so, *) 
(♦dass sich das DOS wie bei einem 32K System verhaelt. *) 

VAR BLK:PACKED ARRAY[0..511] OF 0..255; 

BLT,BLN:INTEGER; 

S:FILE; 

PROCEDURE WAITFORCR; 

BEGIN 

WRITELNCWEITER MIT <RETURN> 1 ); 

READLN; 

END; 

BEGIN 

WRITELN; WRITELN 

(*LEGEN SIE EINE KOPIE DER DOS 3.3 MASTER DISK*); 

WRITELN(*IN DAS BOOTLAUFWERK (#4;) EIN*); 

WAITFORCR; 

RESET(S, f #4: 1 ); 

BLN:-2; 

BLT:=BLOCKREAD(S,BLK,1,BLN); 

IF (BLK[260]=191) THEN 
BLK[260]:=127 
ELSE 

WRITELN('KONVERSION UNMOEGLICH'); 

BLT:=BLOCKWRITE(S,BLK,1,BLN); 

WRITELN;WRITELN('WIEDER PASCAL DISK EINLEGEN'); 

WAITFORCR; 

END. 










David N. Jones 


CODEMAP 


Haben Sie schon einmal vergeblich versucht, ein Pascal-Programm zu star¬ 
ten, nur um schließlich herauszufinden, daß die Datei nicht eingebunden war 
oder daß eine UNIT benutzt wurde, die nicht in Ihrer SYSTEM.LIBRARY 
stand? Oder daß das Programm überhaupt nicht ausführbar war? Das ist 
normalerweise kein Problem, wenn man das Programm selbst geschrieben 
hat und seine Funktionsweise kennt, aber bei den vielen Programmen, die 
den Benutzern von USCD-Pascal zur Verfügung stehen, können bisweilen 
überraschende Probleme auftreten. UCSD-Code-Dateien enthalten in Block 
Nr.O ein Segment Dictionary, das eine ganze Reihe interessanter Informatio¬ 
nen beinhaltet. An dieser Stelle setzt das CODEMAP-Programm an, welches 
das Segment Dictionary liest und bei möglichen Problemen mit den 
Codefiles helfen kann. CODEMAP gibt Auskunft über: 

die Anzahl der Segmente eines segmentierten Programms 
den Namen des Codefiles bzw. der Segmente 

- die Art des Segments 

- die Blockadresse und Länge des Segments in Bytes 

- die Slotnummer 

die Blockadresse des Interface-Teils von Units 

die Art des Codes (P-Code oder Maschinencode) 

die Pascal-Version, mit der das Programm kompiliert wurde 

- die Slotnummern der aus der SYSTEM.LIBRARY benötigten Units 

Einige der oben aufgeführten Möglichkeiten bedürfen möglicherweise einer 
näheren Erklärung. Zur Zeit gibt es zwei Versionen (A.d.Ü.: jetzt sind es 
schon drei) des APPLE-Pascal (1.0 und 1.1), und manchmal kann es von In¬ 
teresse sein zu erfahren, mit welcher Version das Programm übersetzt wur¬ 
de. Es kann wichtig sein, den Code-Typ zu wissen, wenn das Programm 
rechnerabhängige Routinen verwendet. Beachten Sie bitte, daß ein mit 
“6502“ bezeichnetes Segment nicht notwendigerweise vollständig aus As¬ 
semblerroutinen besteht: Wenn in das Segment Maschinenroutinen einge¬ 
bunden sind, wird es nämlich insgesamt mit der Bezeichnung 6502-Code ver¬ 
sehen. Die Segmentart gibt an, ob das Programm eingebunden ist oder nicht, 
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eine UNIT oder ein DATA-Segment einer Unit darstellt. Jedes Segment be¬ 
ginnt bei einem neuen Block, und die Blockadresse bezeichnet den Start¬ 
block des betreffenden Segments relativ zum Anfang der Datei. 

Die Slotnummer ist nur für die Systembibliothek interessant. Wenn Sie 
das CODEMAP-Programm auf die SYSTEM.LIBRARY anwenden, dann 
geben die Slotnummern an, welcher Slot sich auf die jeweilige Unit bezieht. 
CODEMAP gibt die Slotnummern der notwendigen intrinsischen Units an. 
Vergleicht man die Slotnummern, so erfährt man, welche Units benutzt wer¬ 
den. Man könnte CODEMAP etwas aufwendiger schreiben, so daß es die 
Segmentnamen aus der Systembibliothek liest und die Namen der notwendi¬ 
gen Units auflistet, anstatt deren Slotnummern. 

Weitere Informationen über die Definitionen sowie einen Großteil der 
Angaben, die benötigt werden, um CODEMAP zu schreiben, finden Sie im 
Operating System Reference Manual auf den Seiten 266 bis 270. Einen Teil 
der benötigten Informationen liefert Ihnen auch das Programm LIBMAP 
von der APPLE3:-Diskette. LIBMAP läßt sich sowohl auf Bibliotheken als 
auch auf Codefiles anwenden. Listing Nr.l enthält den Quelltext des 
CODEMAP-Programms, während Listing Nr.2 zeigt, wie z.B. der Output 
eines SYSTEM.COMPILERS aussehen kann. 


Listing 2 


Seg ri 

— Code Map fuer #9jsystera.Compiler 

1 Name Segment Art 

Adr 

Laen 

Slot 

Intrf 

Typ 

Version 

0 


gelinkt 

& 

ausfuehrbar 

0 

0 

0 

0 

Undef. 

K.A. 

1 

PASCALCO 

gelinkt 

& 

ausfuehrbar 

1 

4486 

1 

0 

P-Code (-) 1.1 

2 

COMPINIT 

gelinkt 

& 

ausfuehrbar 

10 

3226 

7 

0 

P-Code (-) 1.1 

3 

DECLARAT 

gelinkt 

& 

ausfuehrbar 

17 

7574 

8 

0 

P-Code (-) 1.1 

4 

BODYPART 

gelinkt 

& 

ausfuehrbar 

32 

7208 

9 

0 

P-Code (-) 1.1 

5 

ROUTINE 

gelinkt 

& 

ausfuehrbar 

47 

2902 

10 

0 

P-Code (-) 1.1 

6 

STATEMEN 

gelinkt 

gelinkt 

& 

ausfuehrbar 

53 

1598 

11 

0 

P-Code (-) 1.1 

7 

CASESTAT 

& 

ausfuehrbar 

57 

436 

12 

0 

P-Code (-) 1.1 

8 

FORSTATE 

gelinkt 

& 

ausfuehrbar 

58 

512 

13 

0 

P-Code (-) 1.1 

9 

B0DY1 

gelinkt 

& 

ausfuehrbar 

59 

326 

14 

0 

P-Code (-) 1.1 

10 

B0DY3 

gelinkt 

& 

ausfuehrbar 

60 

858 

15 

0 

P-Code (-) 1.1 

11 

WRITELIN 

gelinkt 

& 

ausfuehrbar 

62 

818 

16 

0 

P-Code (-) 1.1 

12 

UNITPART 

gelinkt 

& 

ausfuehrbar 

64 

1600 

17 

0 

P-Code (-) 1.1 

13 

C0MP0PTI 

gelinkt 

& 

ausfuehrbar 

68 

1060 

18 

0 

P-Code (-) 1.1 

14 

NUMSTRIN 

gelinkt 

& 

ausfuehrbar 

71 

864 

19 

0 

P-Code (-) 1.1 

15 FINISHUP gelinkt & ausfuehrbar 73 

Erforderliche intrinsische Segmente: Keins 

672 

20 

0 

P-Code (-) 1.1 
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Listing 1 


(* 


CODEMAP 

Ein Code File Hilfsprogramm 
von 

David N. Jones 
14. Mai 1981 


*) 


PROGRAM CODEMAP; 

CONST 

MAXSEG = 31; 

MAXSLOT= 15; 

TYPE 

SEGRANGE =0..MAXSEG; 

SEGDICRANGE=0..MAXSLOT; 

MTYPES= (UNDEF,PCODEMOST,PCODELEAST,PDP11,M8080,Z80,GA440,M6502,M6800,TI990); 
REVISIONS=(NONAPPLE,ONEZERO,ONEONE,FUTUREI,FUTURE2,FUTURE3, 

FUTURE4,FUTURE5); 

SEGSET = SET OF SEGRANGE; 

SEGDICREC = RECORD 

DISKINFO: ARRAY[0..15] OF 
RECORD 

CODELENG, CODEADDR:INTEGER 
END; 

SEGNAME: ARRAY[0.,15] OF PACKED ARRAY[0..7] OF CHAR; 

SEGKIND: ARRAY[0..15] OF (LINKED,HOSTSEG,SEGPROC,UNITSEG, 

SEPRTSEG,UNLINKED_INTRINS, 
LINKED_INTRINS,DATASEG); 

TEXTADDR: ARRAY[0..15] OF INTEGER; 

SEGINFO:ARRAY[SEGDICRANGE] OF 

PACKED RECORD 
SEGN0:0..255; 

MACHTYPEiMTYPES; 

FILLER:0..1; 

MAJORREVISION:REVISIONS; 

END; 

INTSEGSET:SEGSET; 

FILLER2:ARRAY[0..109] OF INTEGER 
END (* SEGDICREC *); 

VAR 

SEGDIC:SEGDICREC; 

F:FILE; 

0:INTERACTIVE; 

SEGNOTREQ:BOOLEAN; 

FUNCTION YESNO:BOOLEAN; 

VAR CH:CHAR; 

BEGIN 

REPEAT 

WRITEC J(a oder N(ein :’); 

READ(CH); 

WRITELN 

UNTIL CH IN[*J*, , N I , 1 j*,*n*]; 

YESNO:= CH IN[ T J f ,'j 1 ]; 

END; 
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PROCEDURE ERROR(MESSAGE:STRING); 

BEGIN 

WRITELN; 

WRITELN( '=>FEHLER *,MESSAGE); 

WRITE (' RETURN fuer Abbruch: 1 ); 

READLN; 

EXIT(CODEMAP) 

END; 

PROCEDURE INIT; 

VAR FCFNAME,OFNAME:STRING; 

BEGIN 
CLOSE(F); 

WRITE('Name des Codefiles ==>'); 

READLN(FCFNAME); 

RESET(F,FCFNAME); 

IF IORESULTOO THEN 

ERROR( f beim Oeffnen des Codefiles'); 

IF BLOCKREAD(F,SEGDIC,1,0) <> 1 THEN 
ERROR(*beim Lesen des Segment Dictionaries'); 

WRITELN('Name der Ausgabedatei '); 

WRITE(*<cr> = CONSOLE: —>'); 

CLOSE(O); 

OFNAME 

READLN(OFNAME); 

IF LENGTH(OFNAME) = 0 THEN OFNAME:-'CONSOLE: 1 ; 

REWRITE(0,OFNAME); 

IF IORESULTOO THEN 

ERROR('beim Oeffnen des Ausgabefiles'); 

PAGE(O); 

WRITELN(0,'-Code Map fuer \FCFNAME,'-'); 

WRITELN(0,' Seg # Name Segment Art Adr ', 

' Laen Slot Intrf Typ Version'); 

WRITELN(0,'_', 

~ I ); 

END; 


PROCEDURE MAP; 

VAR I: INTEGER; J: SEGRANGE; 


PROCEDURE MAPI; 

BEGIN 

WITH SEGDIC DO 
BEGIN 

WRITE(0,' ',1:4,' ',SEGNAME[I]); 
CASE SEGKIND[I] OF 


LINKED : WRITE(0,' gelinkt & ausfuehrbar ') 

HOSTSEG : WRITE(0,' ungelinktes Hauptprogramm') 

SEGPROC : WRITE(0,' Segmentprozedur ') 

UNITSEG : WRITE(0,' Regulaere UNIT ') 

SEPRTSEG : WRITE(0,' Seperate Prozedur ') 

UNLINKED_INTRINS : WRITE(0,' ungelinkte INTRINSIC Unit') 

LINKED_INTRINS : WRITE(0, 1 Gelinkte INTRINSIC Unit ') 

DATASEG : WRITE(0, 1 Datensegraent ') 

END; (* OF CASE *) 


WRITE(0,' ',DISKINF0[I].CODEADDR:4,DISKINF0[I].CODELENG:6); 
END; (* WITH SEGDIC *) 

END; (* MAPI *) 
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PROCEDURE MAP2; 

BEGIN 

WITH SEGDIC DO 
BEGIN 

WRITE(0,SEGINFO[I].SEGNO:5,TEXTADDR[I]:5, 1 
CASE SEGINFO[I].MACHTYPE OF 


UNDEF 

WRITE(0,' 

Undef. 

') 

PCODEMOST 

WRITE(0,' 

P-Code (+) 

') 

PCODELEAST 

WRITE(0,' 

P-Code (-) 

’) 

PDP11 

WRITE(0,' 

PDP 11 

') 

M8080 

WRITE(0,' 

8080 

') 

Z80 

WRITE(0,' 

Z80 

’) 

GA440 

WRITE(0,' 

GA440 

') 

M6502 

WRITE(0,' 

6502 

') 

M6800 

WRITE(0, 1 

6800 

’) 

TI990 

WRITE(0,' 

TI990 

') 

END: (* OF CASE *) 



CASE SEGINFO[I].MAJORREVISION OF 


NONAPPLE : 

WRITE(0,' 

K.A.'); 


ONEZERO : 

WRITE(0,' 

l.o'); 


ONEONE : 

WRITE(0,' 

1.1'); 



END; (* OF CASE *) 

END; (* WITH SEGDIC *) 

END; (* MAP2 *) 

BEGIN 

FOR Is- 0 TO MAXSLOT DO 
BEGIN 
MAPI; 

MAP2; 

WRITELN(0)r 

END; 

WRITE(0,Erforderliche intrinsische Segmente: *); 
SEGNOTREQ:=TRUE; 

WITH SEGDIC DO 
BEGIN 

FOR J := 0 TO MAXSEG DO 
BEGIN 

IF J IN INTSEGSET THEN 
BEGIN 

WRITE(0,J:3); 

SEGNOTREQ:=FALSE; 

END; 

END; 

IF SEGNOTREQ THEN WRITE(0,* Keins'); 

END; 

WRITELN(O); 

END; 

BEGIN 

REPEAT 

INIT; 

MAP; 

WRITE( ’==> Weiteres Code File ? '); 

UNTIL NOT YESNO; 

CLOSE(0,LOCK); 

END. 






























Chris Wilson 


Patch für nicht ein¬ 
gelegte Boot-Disk 


Im allgemeinen ist das Problem des Disk-Swappings unter APPLE-Pascal 
1.1 recht gut gelöst. Eine unglückliche Ausnahme ist der Fall, wenn ein Pro¬ 
gramm beendet wird und zu diesem Zeitpunkt die Boot-Disk nicht eingelegt 
ist. In diesem Fall gibt das Pascal einen entsprechenden Hinweis aus und for¬ 
dert dazu auf, die Boot-Disk wieder einzulegen. Danach startet es das Boot- 
Laufwerk alle fünf Sekunden, um nachzusehen, ob die Diskette inzwischen 
eingelegt wurde. Diese Warteschleife ist äußerst lästig. 

Das kleine Programm in diesem Kapitel modifiziert das Pascal derge¬ 
stalt, daß nach der Meldung, die Boot-Disk einzulegen, die folgende Nach¬ 
richt auf dem Bildschirm erscheint: 


TYPE «SPACE» TO CONTINUE 


Danach wartet das Programm geduldig darauf, daß man die Boot-Disk ein¬ 
legt. Wenn Sie die Leertaste drücken, ohne daß die Boot-Disk eingelegt ist, 
wird die obige Meldung einfach wiederholt. Das geschieht solange, bis man 
die richtige Diskette eingelegt hat. 
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PROGRAM PATCHOS; 


(* Block Nr. 15 von SYSTEM.PASCAL wird 
so gepatcht, dass die Warteschleife, 
die das Bootlaufwerk abfragt, durch 
einen Aufruf der SPACE WAIT Prozedur 
ersetzt wird. 


Alter Code Neuer Code 

_ * _ 


LDCI (C7) 

OFAO 

! LOD (B6) 

02 03 

STL (CC) 

01 

! CXP (CD) 

00 16 

SLD01 (E8) 


! SLDC1 (01) 


SLDL1 (D8) 


! SLDCO (00) 


LEQI (C8) 


! SLDCO (00) 


FJP (Al) 

07 

! CBP (C2) 

28 

SLD01 (E8) 


! STL (CC) 

01 

SLDC1 (01) 


I 


ADI (82) 


i 


SRO (AB) 

01 

! 


UJP (B9) 

F6 

i 


*) 




TYPE 





HEXSTRING = STRING[2]; 


VAR 

F: FILE; 

B: PACKED ARRAY [0..40,0..511] 0F 0..255; 
CH: CHAR; 

I: INTEGER; 


FUNCTION C0NV(HEX: CHAR): INTEGER; 
BEGIN 

IF HEX IN [*A*..*F*] THEN 
CONV := 10+(0RD(HEX)-0RD( 1 A 1 )) 
ELSE IF HEX IN [ f 0 , .. l 9 f ] THEN 
CONV 0RD(HEX)-0RD(*0') 

ELSE 

CONV := 0; 

END; 


PROCEDURE FIX(BLK, BYTE: INTEGER; OLD, NEW: HEXSTRING); 

VAR 

IOLD, 

INEW: INTEGER; 
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BEGIN 

IOLD := CONV(OLD[2])+(CONV(OLD[1])*16); 

INEW := CONV(NEW[2])+(CONV(NEW[l])*16); 

IF B[BLK,BYTE] = IOLD THEN 
B[BLK,BYTE] := INEW 
ELSE 
BEGIN 

WRITELN('Byte bei Block ',BLK,' Offset '.BYTE); 

WRITELN('ist ' ,B[BLK,BYTE],', sollte sein '.IOLD); 

EXIT(PATCHOS); 

END; 

END; 

BEGIN 

PAGE(OUTPUT); 

WRITELN('Patchos (15-Feb-81)'); 

WSITELN; 

WRITELN('Copyright (c) 1982 Chris Wilson'); 

WRITELN; 

WRITELN('Legen Sie eine Diskette mit dem Original SYSTEM.PASCAL'); 
WRITELN('in Laufwerk 1 ein'); 

WRITE('Weiter mit Leertaste'); 

READ(KEYBOARD.CH); 

WRITELN; 

RESET(F,'#4:SYSTEM.PASCAL'); 

I := BL0CKREAD(F,B,41); 

CLOSE(F); 

FIX(15,369,'C7','B6'); 

FIX(15,370,'AO','02'); 

FIX(15,371,’OF','03'); 

FIX(15,372,’CC','CD'); 

FIX(15,373,'01','00'); 

FIX(15,374,'E8','16'); 

FIX(15,375,'D8','01'); 

FIX(15,376,'C8','00’); 

FIX(15,377,'A1','00’); 

FIX(15,378,'07','C2'); 

FIX(15,379,'E8','28'); 

FIX(15,380,'01','CC'); 

FIX(15,381,'82','01'); 

FIX(15,382,'AB','D7'); 

FIX(15,383,'01’,'D7'); 

FIX(15,384,'B9','D7'); 

FIX(15,385,’F6','D7'); 

REPEAT 

PAGE(OUTPUT); 

WRITELN('Legen Sie die zu modifizierende Diskette in Laufwerk 1 ein'); 
WRITE('Weiter mit Leertaste'); 

READ(KEYBOARD.CH); 

WRITELN; 

RESET(F,'#4:SYSTEM.PASCAL'); 

I := BLOCKWRITE(F,B,41); 

CLOSE(F.LÖCK); 

WRITE('Noch eine Diskette aendern (j/n): '); 

READ(CH); 

WRITELN 

UNTIL (CH <> ’N') AND (CH <> ’n'); 

END. 
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Dana Schwartz 


HUFFIN 


Dateitransfer: Pascal nach DOS 

Nachdem man erkannt hatte, daß die RWTS-Routinen (Read/Write Track 
and Sector) des DOS 3.3 einen Zugriff auf alle Blocks einer Pascal-Diskette 
gestatten, wurde es zu einer relativ einfachen Aufgabe, die Kenntnisse über 
die Struktur der Pascal-Directory und -Textdateien anzuwenden, um diese 
auf der Diskette zu finden und in eine DOS-Textdatei zu konvertieren. Das 
vorliegende MUFFIN-ähnliche Programm HUFFIN, das in einer problemo¬ 
rientierten Sprache geschrieben wurde, ist die Implementierung dieses Kon¬ 
zeptes. 

Zeile 100 setzt HIMEM: um 2100 Bytes herab, um Platz für die RWTS- 
Routine und die Puffer für die Pascal-Blocks zu reservieren. In den Zeilen 
120 bis 190 werden diese RWTS-Routine und die zugehörigen IOB und DCT 
mit POKE-Befehlen in den Hauptspeicher geschrieben. Diese Datenstruktu¬ 
ren sind im DOS 3.3-Handbuch auf den Seiten 87 bis 89 beschrieben. 

Der Bildschirmaufbau wird in den Zeilen 200 bis 230 vorgenommen; dar¬ 
auf folgt eine Frage an den Benutzer nach den Slots und Laufwerken von 
DOS- und Pascal-Diskette. Danach wird der Benutzer aufgefordert, die Dis¬ 
ketten einzulegen. Beachten Sie, daß bei Verwendung eines Laufwerkes ein 
mehrmaliges Wechseln der Disketten notwendig ist und daß aus diesem 
Grunde die Pascal-Quelldiskette schreibgeschützt werden sollte, um even¬ 
tuelle Fehler zu vermeiden (das gilt ganz besonders bei den ersten Konvertier¬ 
versuchen). 

In Zeile 290 wird der Benutzer nach dem Namen der Pascal-Textdatei ge¬ 
fragt, die kopiert werden soll. Dabei ist kein Diskettenname anzugeben (Bei¬ 
spiel: DJS.TEXT). Gibt man keinen Namen an, so wird ein abgekürztes 
Directory-Listing der Pascal-Diskette ausgegeben (GOSUB 5000), und der 
Benutzer wird erneut nach einem Namen gefragt. Wird ein Name eingege¬ 
ben, so wird das Directory der Pascal-Diskette abgesucht (GOSUB 1000), 
und wenn der Name gefunden wird, Dateityp und -große geprüft. In den Zei¬ 
len 310 bis 320 werden daraufhin die Puffer und die DOS-Textdatei initiali¬ 
siert. 
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Die Konversion findet in den Zeilen 330 bis 340 statt, wobei Benutzer ei¬ 
nes Laufwerkes nötigenfalls darauf aufmerksam gemacht werden, die Dis¬ 
kette zu wechseln. Die Textzeichen werden einfach zu einem Ausgabestring 
(A$) zusammengekettet, bis ein CR (ASCII-Wert 13) auftritt. Dann wird das 
so aufgebaute String in die DOS-Datei geschrieben. Kleinbuchstaben werden 
nicht in Großbuchstaben umgewandelt. Für die Zeichen DLE (ASCII-Wert 
16) und NULL (ASCII-Wert 0) ist eine Sonderbehandlung erforderlich (für 
deren Verwendung vgl. Beschreibung des Textdatei-Formats auf S.266 des 
Pascal Operating System Manuals ). Um den Benutzer zu unterhalten, wäh¬ 
rend das APPLESOFT die Strings und den Speicher bearbeitet, wird auf 
dem Monitor ein Textfenster gezeigt, das es gestattet, die Pascal-Zeilen zu le¬ 
sen, die auf die DOS-Diskette geschrieben werden. 

In den Zeilen 450 bis 470 wird der Durchlauf beendet, indem die DOS- 
Datei geschlossen und der HIMEM:-Wert wiederhergestellt wird. 

Die Unterroutine in Zeile 1000 liest das Pascal-Directory in den Haupt¬ 
speicher ein und sucht nach dem angegebenen Dateinamen (N$). Die 
Anfangs- und Endblocks (Top und Bottom) werden in den Variablen TP 
und BT gespeichert, der Dateityp in TY. Wurde die Datei nicht gefunden, so 
wird TY der Wert -1 zugewiesen. Die Directory-Struktur wurde von APPLE 
auf S.9 des Washington APPLE Pie vom Dezember 1980 veröffentlicht. 

Das bei Zeile 2000 beginnende Unterprogramm liest zwei Pascal-Blöcke 
in den Hauptspeicher (BK und BK + 1). Die Unterroutine bei 3000 wird be¬ 
nutzt, um das zu jedem Block (BL) gehörende Spur/Sektor-Paar TR und 
S1/S2 zuzuordnen. (Beachten Sie, daß jeder Block aus zwei Sektoren einer 
Spur besteht.) 

Die bei 4000 liegende Routine ist der BASIC-Zugriff auf die zuvor mit 
POKE in den Speicher geschriebene RWTS-Routine. Die 256 Bytes von Spur 
(TR) und Sektor (SE) werden in den Puffer geschrieben, dessen höherwerti¬ 
ger Adreßteil den Wert BF hat. Das Lo-Byte der Adresse wurde vorher ge¬ 
speichert und ändert sich während der Ausführung nicht. 

Das Unterprogramm bei 5000 liest das Pascal-Directory und gibt die Da¬ 
teinamen auf dem Bildschirm aus. Darauf folgt bei 9000 eine allgemeine 
Fehlerbehandlungsroutine. Sie versucht, die Ausgabedatei zu schließen 
(CLOSE), falls sie vorhanden ist. Dadurch wird es möglich, durch CTRL-C 
einen partiellen Dateitransfer zu bewirken. 
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10 REM 


HUFFIN 

PASCAL/DOS CONVERTER 


BY DANA J. SCHWARTZ 
WASHINGTON APPLE PI 
CALL -A.P.P.L.E. * OCT., 1981 

100 HI = PEEK (115) + PEEK (116) * 256 - 2100: HIMEM: HI 
110 ONERR GOTO 9000 

120 DEF FN MOD(X) = (X / 256 - INT (X / 256)) * 256 
130 RWTS = HI:ER = HI + 17:I0B = HI + 18:DCT = HI + 36:BUFF = HI + 40 
140 TK = IOB + 4:SC = IOB + 5:HB = IOB + 9:G$ = CHR$ (7):PA = 0:DR = 0 
150 POKE RWTS,169: POKE RWTS + 1, INT (IOB / 256): POKE RWTS + 2,160: POKE RWTS 
+ 3, FN MOD(IOB): POKE RWTS + 4,32: POKE RWTS + 5,217: POKE RWTS + 6,3: POKE RW 
TS + 7,176: POKE RWTS + 8,1: POKE RWTS + 9,96 

160 POKE RWTS + 10,173: POKE RWTS + 11, FN MOD(IOB + 13): POKE RWTS + 12, INT ( 
IOB + 13) / 256: POKE RWTS + 13,141: POKE RWTS + 14, FN MOD(ER): POKE RWTS + 15, 
INT (ER / 256): POKE RWTS + 16,96 

170 POKE IOB.l: POKE IOB + 3,0: POKE IOB + 6, FN MOD(DCT): POKE IOB + 7, INT (D 
CT / 256): POKE IOB + 8, FN MOD(BUFF) 

180 POKE IOB + 10,0: POKE IOB + 11,0: POKE IOB + 12,1: POKE IOB + 13,0: POKE IO 
B + 14,0: POKE IOB + 15,96: POKE IOB + 16,1: 

190 POKE DCT.O: POKE DCT 4- 1,1: POKE DCT + 2,239: POKE DCT + 3,216 

200 HOME : VTAB 2: HTAB 16: PRINT "HUFFIN": VT AB 5: PRINT " PASCAL TO DOS TEXT 

FILE CONVERSION" 

210 VTAB 7: HTAB 10: PRINT "BY DANA J. SCHWARTZ": HTAB 10: PRINT "WASHINGTON AP 
PLE PI": VTAB 10: INVERSE 

230 NORMAL : VTAB 11: POKE 34,10: POKE 35,22: ON DR > 0 GOTO 270 
240 ON I GOTO 250: PRINT "SOURCE DISK: HTAB 8: PRINT "SLOT: ";: GET 1$: PRIN 

T I$:SS = VAL (I$): HTAB 8: PRINT "DRIVE: ";: GET 1$: PRINT I$:SD = VAL (1$) 

245 PRINT : PRINT "TARGET DISK: HTAB 8: PRINT "SLOT: GET 1$: PRINT I$:TS 

=. VAL (1$): HTAB 8: PRINT "DRIVE: GET 1$: PRINT I$:TD = VAL (1$) 

250 ON SS < 1 OR SS > 7 GOTO 240: ON TS < 1 OR TS > 7 GOTO 240: ON SD < 1 OR SD 

> 2 GOTO 240: ON TD < 1 OR TD > 2 GOTO 240 

260 SS = SS * 16: IF SS = TS * 16 AND SD = TD THEN DR - 1 

270 POKE IOB + 1,SS: POKE IOB + 2,SD: IF DR = 1 THEN PRINT CHR$ (7): PRINT "I 
NSERT WRITE PROTECTED PASCAL DISK": GOTO 290 

280 ON J GOTO 300: PRINT : PRINT "WRITE PROTECT PASCAL SOURCE DISK AND INSER 

T IN SOURCE DRIVE": PRINT "INSERT DOS 3.3 TARGET DISK IN TARGET DR" 

290 ON J GOTO 300: PRINT : PRINT "(HIT [C/R] FOR DIRECTORY)": PRINT "FILE NAME: 

INPUT N$: IF NOT LEN (N$) THEN GOSUB 5000: PRINT "FILENAME: ";:J = 1: IN 
PUT NS: ON N$ = "" GOTO 470: GOTO 200 

300 GOSUB 1000: IF TY < > 3 OR BT - TP < 4 THEN PRINT : INVERSE : PRINT G$"FI 

LE EMPTY, NOT TEXT OR NOT FOUND": NORMAL :J = 0: GOTO 290 

310 HOME :Bl = INT (BUFF / 256):B2 = Bl + 1:B3 = B2 + 1:B4 = B3 + 1:BK = TP + 
2: GOSUB 2000 

320 AS = "": PRINT CHR$ (4)"0PEN"N$",S"TS",D"TD:D$ = CHR$ (4): PRINT D$"MONO" 
330 PRINT DS"WRITE"N$ 

340 FOR I = BUFF TO BUFF + 1023 

350 C - PEEK (I): IF C > 16 THEN A$ = A$ + CHR$ (C): GOTO 410 
360 IF C = 13 THEN PRINT A$:A$ = "":Y = FRE (0): GOTO 410 
370 ON C < >16 GOTO 400 

380 I = I + 1:SP = PEEK (I): ON SP < 33 GOTO 410 
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390 FOR S = 1 TO SP - 32:A$ = A$ + " NEXT S: GOTO 410 
400 IF C = 0 THEN 1= BUFF + 1023 
410 NEXT I 

420 BK = BK + 2: ON BK = BT GOTO 4^0 

430 IF DR = 1 THEN PRINT D$"PR#0": HOME : PRINT CHR$ (7)"INSERT PASCAL DISK A 
ND HIT RETURN": GET 1$: PRINT : HOME 
440 GOSUB 2000: GOTO 330 
450 TEXT : HOME 

460 IF D$ = CHR$ (4) THEN PRINT D$"CLOSE": PRINT D$"NOMONO" 

465 HOME : VTAB 4: PRINT "ANOTHER FILE ? : GET I$:I = 1: ON 1$ = "Y" GOTO 200 

470 HIMEM: HI + 2100: END : REM 

1000 REM 

*** FIND PASCAL FILE *** 

1010 BF = INT (BUFF / 256):TR = 0: FOR SE = 11 TO 4 STEP - 1: GOSUB 4000:BF = 
BF + 1: NEXT SE 

1020 NU = PEEK (BUFF + 16):PT = BUFF + 32:LN = LEN (N$) 

1030 ON PEEK (PT) < > LN GOTO 1110 

1040 FOR J = 1 TO LN 

1050 ON PEEK (PT + J) < > ASC ( MID$ (N$,J,1)) GOTO 1110 

1060 NEXT J 

1070 TP = PEEK (PT - 6) + PEEK (PT - 5) * 256 

1080 BT = PEEK (PT - 4) + PEEK (PT - 3) * 256 

1090 TY = PEEK (PT - 2) 

1100 RETURN 

1110 PT = PT + 26:NU = NU - 1: ON NU > 0 GOTO 1030 
1120 TY = - 1: RETURN 

2000 REM 

*** READ 2 PASCAL BLOCKS *** 

2010 BL = BK: GOSUB 3000 
2020 BF = Bl:SE = Sl: GOSUB 4000 

2030 BF = B2:SE = S2: GOSUB 4000 

2040 BL = BK + 1: GOSUB.3000 
2050 BF = B3:SE = Sl: GOSUB 4000 

2060 BF = B4:SE = S2: GOSUB 4000 

2070 IF DR = 1 THEN PRINT CHR$ (7)"INSERT DOS DISK AND HIT RETURN GET 1$: 
PRINT : HOME 
2080 RETURN 
3000 REM 

*** BLK -> TR/SE *** 

3010 TR = INT (BL / 8):TMP =(BL/8-TR)*8 

3020 S2 = 2 * (7 - TMP):S1 = S2 + 1 

3030 IF NOT TMP THEN Sl = 0 

3040 IF TMP = 7 THEN S2 = 15 

3050 RETURN 

4000 REM 

*** CALL RWTS *** 


4010 POKE TK,TR: POKE SC,SE: POKE HB,BF: POKE ER,0: CALL RWTS 
4020 IF NOT PEEK (ER) THEN RETURN 

4030 IF D$ = CHR$ (4) THEN PRINT D$"PR#0": PRINT D$"NOMONO" 

4040 TEXT : HOME : PRINT G$"RWTS DISK ERROR PEEK (ER): POP : POP : GOTO 9020 
5000 REM 
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*** PASCAL DIRECTORY *** 


5010 TEXT : HOME :BF = INT (BUFF / 256):TR = 0: FOR SE = 11 TO 4 STEP - 1: GO 
SUB 4000:BF = BF + 1: NEXT SE 

5020 V$ = ”":NL = BUFF + 6: FOR I = 1 TO PEEK (NL):V$ = V$ + CHR$ ( PEEK (NL + 
I)): NEXT I: PRINT V$":":L$ = "":Y = FRE (0) 

5030 LN = 1:NF = PEEK (BUFF + 16): IF NOT NF THEN PRINT G$;: FLASH : PRINT "[ 
NO FILES]”: NORMAL : PRINT : PRINT "HIT [C/R] TO CONTINUE GET 1$: PRINT : HOM 
E : RETURN 

5040 FOR I = 1 TO NF:ST = BUFF + I * 26 + 6:NL = PEEK (ST): ON NOT NL GOTO 50 
60 

5050 FOR J = 1 TO NL:L$ = L$ + CHR$ ( PEEK (ST + J)): NEXT J: PRINT " "L$:L$ = 

Y » FRE (0):LN = LN + 1 

5060 IF LN > 20 OR I = NF THEN PRINT : PRINT "HIT [C/R] TO CONTINUE ": GET 1$: 

PRINT : PRINT V$": ";:LN = 1 


5Ö70 

NEXT I: RETÜRN 


9000 

REM. 


ERROR 

HÄNDLER 


9010 

IF D$ = CHR$ (4) THEN PRINT D$ M PR#0": PRINT D$"NOMONO" 


9020 

TEXT : PRINT : PRINT GS$"ERROR PEEK (222);" AT LINE 

PEEK (218) + PE 

EK (219) * 256 


9030 

POKE 216,0: IF (DR = 2 OR PA = 0) AND D$ = CHR$ (4) THEN 

PRINT D$"CLOSE" 

9040 

GOTO 470 


9999 

REM 


MINOR 

MODS BY VAL J GOLDING 
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Dr. Wo/Washington Apple PI 


PUFFIN 


Dateitransfer: DOS nach Pascal 

Vor rund einem Jahr fragten mich Clubkameraden, die gerade angefangen 
hatten, Pascal zu lernen, ob es eine Möglichkeit gäbe, Dateien zwischen DOS 
und Pascal hin- und her zu kopieren. Da ich wußte, daß beide Systeme mit 
16 Sektoren arbeiten, konnte ich die Frage ohne weiteres mit ja beantworten. 
Eines Tages machte ich mich daran, es zu beweisen. 

Da ich ein unverbesserlicher, völlig einseitiger Pascal-Programmierer 
bin, erwies sich das Projekt für mich einerseits als etwas schwieriger, ande¬ 
rerseits aber auch als etwas leichter, als ich zunächst angenommen hatte. 
Schwieriger, weil ich keine Ahnung vom DOS hatte und zunächst lernen 
mußte, wie DOS-Dateien verwaltet werden, und leichter, weil ich keine Ver¬ 
anlassung hatte (und auch heute noch nicht habe), Pascal-Dateien nach DOS 
zu kopieren und diesen Teil des Projektes daher einfach weggelassen habe. 

Für jemanden, der nicht so “Pascal-borniert“ ist, bleibt es natürlich 
nutzlos, nur den halben Satz von Programmen, die die Kommunikation zwi¬ 
schen zwei Betriebssystemen ermöglichen, zu haben. Zum Glück hat mich 
Dana Schwartz, einer meiner Clubkameraden, gerettet, indem er die andere 
Hälfte schrieb (s. das Kapitel HUFFIN). 


Wozu braucht man PUFFIN? 

Programme, mit denen man Daten zwischen verschiedenen Betriebssystemen 
hin- und herkopieren kann, sind natürlich schon deswegen interessant, weil 
man aus ihnen einiges über die Unterschiede zwischen den Betriebssystemen 
lernen kann. Darüberhinaus erweitern solche Programme auch die Anwen¬ 
dungsmöglichkeiten beider Systeme. Der Programmierer kann sich dann das 
für seine Zwecke am besten passende Betriebssystem aussuchen. 

Aus meiner Sicht könnten ganz besonders die BASIC-Programmierer 
von diesen Konvertierprogrammen profitieren (wobei es mir schwer fällt, 
vorzustellen, was einen überhaupt noch veranlaßt, in BASIC zu program- 
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mieren). Mit diesen Programmen können Sie eine DOS-Datei, das ein 
BASIC-Programm in Textform enthält (zum LIST-Befehl vgl. S.76 des 
DOS-Handbuches) in eine Pascal-Datei konvertieren, das Programm mit 
dem Pascal-Editor lesen und verändern, es dann ins BASIC zurückkopieren 
und mit EXEC ausführen. Natürlich könnten Sie das ganze Programm auch 
gleich mit dem Pascal-Editor schreiben. Auf jeden Fall können Sie die be¬ 
trächtlichen Möglichkeiten des Pascal-Editors zum Schreiben von BASIC- 
Programmen ausnutzen. 

Umgekehrt können Pascal-Programmierer unter DOS erzeugte HI-RES- 
Grafiken in das Pascal-Betriebssystem übertragen. Das gleiche gilt für ande¬ 
re DOS-Dateien. Allerdings muß auf der Pascal-Seite noch einige zusätzliche 
Arbeit getan werden, zum Beispiel die Konversion von Dateien mit wahlfrei¬ 
em Zugriff (Random Access Files) in Record-Strukturen, auf die dann 
Pascal-Programme zugreifen können. Da in Pascal die Wortgrenzen wichtig 
sind, kann das bedeuten, daß Sie in die Verlegenheit kommen könnten, für 
jede konvertierte Datei ein entsprechendes Programm schreiben zu müssen, 
es sei denn, sie würden ein äußerst flexibles Programm für diese zweite Kon¬ 
versionsstufe entwickeln. Die Notwendigkeit, die Wortgrenzen zu beachten 
und die von DOS einzeln benutzbaren Bytes zu zerlegen, ist in PUFFIN sehr 
anschaulich dargestellt. 


Was macht PUFFIN? 

PUFFIN ist ein Programm zum Transfer beliebiger DOS-Dateien in das 
Pascal-Betriebssystem. Es gibt die Möglichkeit, den Typ der Pascal-Datei, 
die erzeugt werden soll, unabhängig vom Typ der gewählten DOS-Datei frei 
zu bestimmen. Man kann zum Beispiel eine in Tokenform gespeicherte 
BASIC-Datei in eine Pascal-Datei transferieren, obwohl das Resultat augen¬ 
scheinlich sinnlos ist. Sinnvollere Möglichkeiten sind bereits weiter oben im 
Text genannt worden. Die generierbaren Pascal-Dateitypen sind Text, Foto 
und Data. 

PUFFIN bietet dem Benutzer ein aus vier Befehlen bestehendes Menü an: 
Cfatalog, Display, Transfer und Q(uit. 

Catalog dient dazu, ein DOS-Directory zu lesen und auszugeben. Gibt 
man die Spezifikation eines Diskettenlaufwerkes nach den Pascal-Regeln ein 
(S.171 im Language Manual und S.276 im Operating System Manual), so 
sucht die Prozedur auf der angegebenen Diskette nach den DOS-Directory- 
Sektoren, baut aus ihnen die Directory-Informartionen auf und gibt das Er¬ 
gebnis dieser Arbeit auf dem Monitor aus. Die dort angezeigten Informatio¬ 
nen geben den Dateinamen an, den Dateityp, die Sektorlänge, die Adresse 
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der ersten Spur/Sektor-Liste sowie, ob die entsprechende Datei schreibge¬ 
schützt ist. 

Display dient einfach dazu, die mit Catalog gesammelten Directory- 
Informationen noch einmal auf dem Bildschirm auszugeben. Sie werden als 
aktuelles Directory bezeichnet. 

Transfer ist das Arbeitspferd des ganzen Programms. Diese Prozedur er¬ 
mittelt den Namen der zu konvertierenden DOS-Datei, der Pascal-Zieldatei 
und den Typ der Pascal-Datei. Der Transfer findet nur statt, wenn sich das 
DOS-File im aktuellen Directory befindet und ein zulässiger Pascal- 
Dateiname angegeben wird. 

Maßnahmen zur Vermeidung von E/A-Fehlern sind soweit ausge¬ 
schöpft, daß etwaiges Durcheinander, sei es bei Tastatur-Fehlern oder 
Disketten-E/A, sofort eingekreist wird. Das Programm gleitet Ihnen nicht 
aus den Händen, sondern läßt sich über Aufruf des Hauptmenüs zu jeder 
Zeit leicht kontrollieren. 


Globale Deklarationen und das Hauptprogramm 

Die globalen Deklarationen in PUFFIN definieren die Pascal- 
Repräsentation eines DOS-Directories und bilden damit die Grundlage der 
drei Befehle des Programms. 

Beachten Sie, daß alle Strings durch Begriffe mit vorher definierten Kon¬ 
stanten definiert werden, die ihre Länge bestimmen, z.B.: 

didleng = 30; 

did = string[didleng]; 

Beachten Sie bitte auch, daß alle Arrays unter Verwendung von Konstanten 
deklariert sind, die ihre Dimensionierung bestimmen. Durch Typdeklaratio¬ 
nen wird ihr Grundtyp bestimmt, und durch Untermengentypen wird der In¬ 
dexbereich des Arrays festgelegt. Hier ein Beispiel: 

TYPE 

blocksize = 512; 
blockrange = 0. .blocksize; 
blockbuffer = 

PACKED ARRAY [1..blocksize] OF byte; 

VAR 

block:blockbuffer; 

blockindex:blockrange; 
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Diese Deklarationen definieren, was ein “blockbuffer“ ist und welchen Typ 
der Zeiger “blockindex“ in die Variable “block“ hat. 

Durch Verwendung von Konstanten erhöht sich die Lesbarkeit des Pro¬ 
gramms. Gleichzeitig werden Änderungen erleichtert. Die Verwendung von 
Untermengen erhöht die Programmsicherheit, da eine Überschreitung der 
Bereichsgrenzen entweder zu Kompilations- oder Laufzeitfehlern führt - 
Pascal erlaubt keine Bereichsüberschreitungen. In komplizierteren Program¬ 
men ist das ein schwerwiegendes Plus, aber auch hier lohnt sich disziplinier¬ 
tes Programmieren. 

Die Deklaration des Datentyps “dosdirentry“ wird den DOS-Freunden 
wahrscheinlich bekannt Vorkommen. Beachten Sie, daß es zwei unterschied¬ 
liche Varianten von Directory-Einträgen gibt, die durch die Komponente 
“dfkind“ unterschieden werden. Die eine Variante, bei der dfkind = volin- 
fo ist, belegt nur den nullten Directory-Eintrag und enthält die Nummer der 
Unit, von der das Directory gelesen wurde, sowie die Anzahl der Directory- 
Einträge. Die andere Variante wird zur Beschreibung der eigentlichen 
Directory-Einträge verwendet und enthält natürlich auch die Komponente 
“dfkind“, um anzugeben, um welchen DOS-Dateityp es sich jeweils han¬ 
delt. 

Das Hauptprogramm beginnt mit einer Initialisierung des Directories. 
Der nullte Eintrag wird in seiner “dfkind“-Komponente als “volinfo“ de¬ 
klariert, die Anzahl der Einträge wie auch die Gerätenummer für das DOS- 
Directory wird auf 0 gesetzt. Danach durchläuft das Programm eine Schlei¬ 
fe, in der diö Benutzeroptionen auf dem Monitor ausgegeben, gelesen und 
die gewünschten Befehle ausgeführt werden. Diese Schleife wird nur verlas¬ 
sen, wenn der Benutzer die Option “Quit“ aufruft. 


Catalog 

Die Struktur eines DOS-Catalogs besteht aus einer linearen, verketteten Li¬ 
ste, in der jedes Element einen Diskettensektor belegt und aus zwei Kompo¬ 
nenten besteht, nämlich einem Zeiger auf das nächste Element und einer Li¬ 
ste von bis zu sieben Directory-Einträgen. In Pascal kann dieser Zusammen¬ 
hang wie folgt beschrieben werden: 

dosnode = RECORD 

nextnoderlink; 

entries:ARRAY[1..7] OF dosdirentry; 

END; 

wobei die Typen “link“ und “dosdirentry“ gültig in PUFFIN definiert wor¬ 
den sind. < 
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Wenn der Aufbau eines DOS-Directories dieser Deklaration Byte für By¬ 
te entsprechen würde, so wäre es eine geradezu triviale Aufgabe, eine solche 
Liste abzuarbeiten, indem man die Directory-Sektoren sequentiell liest und 
nacheinander auf dem Bildschirm ausgibt. Unglücklicherweise ist das nicht 
der Fall, und es entsteht das zusätzliche Problem, daß man die in einem 
Directory-Sektor enthaltenen Informationen umformatieren muß. Obwohl 
das nicht schwierig ist, ist diese Aufgabe lästig, weil einzelne Bytes verscho¬ 
ben werden müssen. Abgesehen davon ist die Grundidee, eine verkettete Li¬ 
ste abzuarbeiten, immer noch das Kernproblem des Algorithmus. 

Wie arbeiten wir die Liste dann ab und lesen das Directory? Nun, dazu 
brauchen wir nur zu wissen, wo die Liste beginnt, wann der letzte Sektor er¬ 
reicht ist, und ob die gefundenen Einträge gültig oder gelöscht sind. Folgen 
wir den Angaben des DOS-Handbuches, so können wir davon ausgehen, daß 
ein Directory in Spur 17, Sektor 15 (dezimal) beginnt und daß der letzte Sek¬ 
tor erreicht ist, wenn der Zeiger für den nächsten Sektor auf Spur 0, Sektor 0 
weist. Außerdem gehen wir davon aus, daß ein Directory-Eintrag inaktiv 
(d.h. gelöscht) ist, wenn der Zeiger für die Spur/Sektor-Liste dieses Eintrags 
(erstes Byte des Eintrages, d.h. Byte Nr.O) entweder 0 oder 255 ($FF) ist. 

Catalog fragt zunächst nach der Nummer des Laufwerkes, in dem sich 
die zu lesende DOS-Diskette befindet. Gibt man Nr.O ein, so wird die Kon¬ 
trolle wieder an das Hauptmenü zurückgegeben; ansonsten wird eine Initiali¬ 
sierung der Variablen “dirlink“ und “entrycount“ durchgeführt. Beachten 
Sie, daß “dirlink“ jetzt auf den ersten Sektor des DOS-Directories zeigt. 

Es werden nun zwei geschachtelte WHILE-Schleifen aufgerufen, die das 
Traversieren des DOS-Directories und eine Übertragung der gefundenen In¬ 
formation in die Variable “dosdir“ übernehmen. 

Die äußere Schleife wird durch die Boolesche Funktion “eodir“ gesteu¬ 
ert, die prüft, ob noch ein weiterer Directory-Sektor gelesen werden muß. 
Die Funktion liefert nur dann den Wert FALSE, wenn die Variable 

“dirlink“ auf Spur 0, Sektor 0 zeigt. 

Die erste Aufgabe innerhalb der Schleife ist es, den Sektor, auf den “dir¬ 
link“ zeigt, in die Variable “dirsector“ einzulesen. Wenn dies fehlerfrei ge¬ 
schieht, initialisiert die Prozedur die Variable “sectorindex“ und ruft die in¬ 
nere Schleife des Traversierungsteils auf. 

Die innere Schleife wird durch “eodirsector“, ebenfalls eine Boolesche 
Funktion, kontrolliert. Diese Funktion sucht nach dem aktuellen Directory- 
Sektor und liefert genau dann den Wert FALSE, wenn sie einen aktiven 
Directory-Eintrag findet. Die Suche beginnt bei Eintrag Nr. 
“sectorindex -hl“ und wird solange fortgesetzt, bis entweder ein aktiver Ein¬ 
trag gefunden oder das Sektorende erreicht wird, je nachdem, welcher Fall 
zuerst eintritt. Das Sektorende ist erreicht, wenn alle sieben (= maxindex) 
potentiellen Einträge geprüft worden sind. Beachten Sie, daß durch die Ini¬ 
tialisierung der Variablen “sectorindex“ sichergestellt wird, daß die Suche 
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bei Eintrag Nr.l beginnt. 

Außer der Aktualisierung von “sectorindex“ sorgt “eodirsector“ auch 
für eine Aktualisierung der Variablen “entrybase“. Letztere ist ein Zeiger 
auf einen Index von “dirsector“, der das erste Informationsbyte eines 
Directory-Eintrages markiert. 

An dieser Stelle der inneren Schleife zeigt “entrybase“ auf den Anfang 
des nächsten in Pascal-Format zu konvertierenden Directory-Eintrages. Die 
Konversion erfolgt in drei Schritten. Als erstes wird die umzuformende In¬ 
formation (35 = entrylength Bytes) in die Variable “nextentry“ kopiert, 
zweitens wird die Variable “entrycount“ hochgezählt, und drittens wird die 
eigentliche Formatierung durch “filldirentry“ ausgeführt. Sorgfältige Pro¬ 
grammierer werden feststellen, daß sich die Variable “nextentry“ und der 
Aufruf von “moveleft“, durch den sie gefüllt wird, auch eliminieren lassen, 
wenn man “filldirentry“ entsprechend ändert. 

Nachdem der aktuelle Sektor abgearbeitet ist, aktualisiert die Prozedur 
“dirlink“ und prüft die Bedingung für die äußere Schleife. Beim Verlassen 
dieser Schleife wird schließlich der nullte Eintrag des Directories aktualisiert 
und “displaydir“ aufgerufen, um den Inhalt des Directories auf dem Moni¬ 
tor auszugeben. 

Die “filldirentry“-Prozedur macht die eigentliche Schmutzarbeit beim 
Formatieren von DOS-Einträgen. Eine wichtige Aufgabe, die sie außerdem 
ausführt, ist die Konversion des DOS-Dateinamens in echte ASCII-Codes, 
indem sie das Hi-Bit der einzelnen Zeichen löscht. Zur Erhöhung der Pro¬ 
grammsicherheit verwandelt sie nicht ausgebbare Zeichen in Blanks. Danach 
sucht sie das äußerste linke Leerzeichen und setzt dementsprechend die Län¬ 
ge des Dateinamens. 


Displaydir 

Die “displaydir“-Prozedur ist relativ simpel. Zuerst wird ein Vorlaufstück 
(Header) ausgegeben, und dann werden die Einträge untereinander auf den 
Bildschirm geschrieben. Es wurden die Voraussetzungen geschaffen, die 
Ausgabe zu stoppen, wenn der Bildschirm voll ist, und sogar die Möglich¬ 
keit, vorzeitig zum Hauptprogramm zurückzukehren. Eine Variable namens 
“cumsectors“ enthält die Gesamtzahl der belegten Sektoren. 

Die Prozeduren “displayheader“ und “displayentry“ sind global zu 
“displaydir“ deklariert, da sie auch von “transfer“ benutzt werden. 

Die Directory-Ausgabe macht vom 80-Zeichen-Format des Pascal Ge¬ 
brauch. Wer die Verwendung von Ctrl-A zur Seitenumschaltung vermeiden 
möchte, muß die Ausgabeprozeduren entsprechend modifizieren. 
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Transfer 

Der Schlüssel zu einer DOS-Datei besteht in ihrer Spur/Sektor-Liste; wie der 
DOS-Catalog ist sie eine lineare, verkettete Liste. Die Elemente bestehen aus 
zwei Komponenten, einem Zeiger auf das nächste Listenelement (die Weiter¬ 
führung der Spur/Sektor-Liste) und einer Liste von Zeigern, die auf die der 
Datei zugeordneten Diskettensektoren weisen, und zwar bis zu 122 
( = maxlink) Stück in einem Listenelement. Die folgende Deklaration trägt 
dieser Datenstruktur Rechnung: 

CONST 

maxlink = 122; 

TYPE 

byterange = 0..255; 
link = PACKED RECORD 
tracknum.-byterange; 
sectnum:Byterange; 

END; 

tslist = RECORD 

continuationdink; 

list:PACKED ARRAY [1..maxlink] OF link; 

END; 

VAR 

currentlistrtslist; 


Die Struktur der Spur/Sektor-Liste legt die Idee zu einem Traversierungsal¬ 
gorithmus nahe, der dem in “Catalog“ verwendeten ähnlich ist. Dazu gehö¬ 
ren ebenfalls entsprechende Tests, wann das Listenende erreicht ist usw. De¬ 
ren Funktionsweise haben wir ja bereits erläutert. 

Die ‘Transfer*‘-Prozedur beginnt mit zwei Schleifen, in denen ermittelt 
wird, wie die zu übertragende Datei heißt und wohin sie geschrieben werden 
soll. Zunächst wird gefragt, wie das zu konvertierende DOS-File heißt. Wird 
kein Name angegeben, dann gibt die Prozedur die Kontrolle an das Haupt¬ 
programm zurück; ansonsten wird eine Schleife aufgerufen, die von der 
Booleschen Funktion “searchdir“ kontrolliert wird. Diese Funktion liefert 
dann und nur dann den Wert TRUE, wenn die angegebene Datei in dem ak¬ 
tuellen Directory steht. Wenn sie den Wert TRUE liefert, gibt sie auch 
gleichzeitig die Indexnummer des Eintrages. 

Zur besseren Übersicht gibt die Prozedur danach die Directory- 
Informationen der gewählten Datei aus und initialisiert die Variable “next- 
node“ so, daß sie auf den ersten Sektor der Spur/Sektor-Liste der Datei 
weist. 
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An dieser Stelle ruft “transfer“ die “getfiletype“-Prozedur auf, um her¬ 
auszubekommen, welchen Pascal-Dateityp das DOS-File bekommen soll. 
Hier gibt es drei Möglichkeiten: text, foto und data. 

Die “filetype“-Prozedur liefert ein String namens “suffix“ und eine Va¬ 
riable mit dem Namen “filetype“, deren Wertebereich aus “pasfilekinds“ 
stammt. Das “suffix“ wird an den Namen der Zieldatei angehängt, während 
“filetype“ bestimmt, wie die Initialisierung und Formatierung der Pascal- 
Datei erfolgen soll. 

Danach ermittelt die Prozedur den Namen der Pascal-Zieldatei und er¬ 
reicht eine WHILE-Schleife, die von “openfile“ kontrolliert wird. Diese 
Funktion versucht, die Zieldatei zu eröffnen, findet Fehler (wie z.B. unzuläs¬ 
sige Dateinamen) und verhindert, daß das Programm bei dem Versuch, eine 
Datei zu öffnen, abstürzt. Achten Sie darauf, als Zieldiskette eine andere als 
die DOS-Diskette anzugeben. 

Das Programm ist gegen Fehler der Art, die irreparable Dateiverluste 
nach sich ziehen können, nicht geschützt. Glauben Sie mir, ich habe meine 
Erfahrungen damit gemacht... 

Die Prozedur initialisiert nun ihre Schlüsselvariablen. Die Übertragung¬ 
spuffer “primpage“ und “sparepage“ werden mit Nullzeichen gefüllt und 
ihre entsprechenden Indexzeiger auf Null gesetzt. Das gleiche geschieht mit 
der Variablen “relblock“, die die Anzahl der bisher geschriebenen Blöcke 
enthält. Wenn es sich bei der Datei um ein “fotofile“ handelt, wird die Va¬ 
riable “fotoflag“ auf TRUE gesetzt. Handelt es sich um eine Textdatei, wer¬ 
den zwei leere Blöcke als Textkopf der Datei auf die Diskette geschrieben. 
Diese beiden Blöcke werden vom Editor benutzt und für unsere Zwecke am 
besten mit Nullzeichen gefüllt. 

Die Puffer “primpage“ und “sparepage“ sind jeweils zwei Blöcke lang 
und erleichtern damit die Übertragung von Textdateien in das Pascal- 
Betriebssystem. Diese beiden Puffer können leicht den Bedingungen für den 
Transfer in andere Dateitypen angepaßt werden. 

Zum Schluß erreicht der Programmfluß die geschachtelten WHILE- 
Schleifen, die die eigentliche Informationsübertragung ausführen. 

Die äußere Schleife wird durch die Boolesche Funktion “eolist“ kon¬ 
trolliert, welche prüft, ob die Spur/Sektor-Liste fortgesetzt wird. Diese 
Funktion liefert genau dann den Wert TRUE, wenn “nextlink“ auf Spur 0, 
Sektor 0 zeigt. Beachten Sie, daß durch die Initialisierung von “nextlist“ si¬ 
chergestellt wird, daß die Informationsübertragung an der richtigen Stelle 
beginnt. 

Innerhalb dieser Schleife wird als erstes dasjenige Listenelement ermit¬ 
telt, auf das “nextlink“ zeigt. Dies geschieht durch die Funktion “get 
node“, die genau dann den Wert FALSE liefert, wenn beim Lesen ein E/A- 
Fehler auftritt; ansonsten liefert sie den Wert TRUE und speichert den gele¬ 
senen Sektor in der Variablen “currentnode“. 
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Nachdem das aktuelle Listenelement gelesen wurde, initialisiert ‘Trans¬ 
fer“ die Variable “linkindex“ und erreicht die von der Funktion “eonode“ 
kontrollierte innere WHILE-Schleife. Dieses Variablen-Funktions-Paar äh¬ 
nelt sehr dem Paar “sectorindex“ und “eodirsector“, das von der Catalog- 
Prozedur verwendet wird. “Eonode“ liefert nur dann den Wert FALSE, 
wenn sie einen aktiven Dateisektor findet; ist das der Fall, so liefert sie auch 
die Sektoradresse in “nextlink“. Aktive Sektoren werden durch 
Spur/Sektor-Zeiger angezeigt, die nicht auf Spur 0, Sektor 0 weisen. 

Bei der Abarbeitung der inneren Schleife wird “readtrksec“ aufgerufen, 
die den Dateisektor, auf den “nextlink“ zeigt, einliest und die Daten in 
“nextsector“ speichert. Wenn alles klappt, wird die Information aus “next- 
sector“ je nach Format der durch “filetype“ bestimmten Datei in “primpa- 
ge“ umgespeichert. Wenn “primpage“ nach dem Verlassen von “stuff“ voll 
ist, werden die darin gespeicherten Daten mit “writeblocks“ in die Zieldatei 
geschrieben. Die Kontrolle wird dann an die Abfrage für die innere Schleife 
übertragen. Beim Verlassen der inneren Schleife wird “nextlink“ aktualisiert 
und die Kontrolle an die äußere Schleifenabfrage übergeben. 


Writeblocks 

Die Übertragung des “primpage“-Puffers wird durch die isolierte Prozedur 
“writeblocks“ erledigt. Bei ihrem Aufruf sollte die Variable “pagepntr“, 
die auf das zuletzt in “primpage“ kopierte Zeichen zeigt, durch “blocksize“ 
teilbar sein, und die Variable “blockcount“ sollte die Anzahl der zu schrei¬ 
benden Blöcke enthalten. Wenn der Aufruf der internen Funktion “block- 
write“ einen anderen Wert als die Anzahl der zu schreibenden Blöcke liefert, 
wird “transfer“ mit einem Aufruf von “abortxfer“ abgebrochen; andern¬ 
falls wird “reiblock“ aktualisiert und die Kontrolle an “transfer“ zurückge¬ 
geben. 


Drei verschiedene Kopierarten 

Die Feinheiten der Dateikonversion von DOS nach Pascal sind in der Proze¬ 
dur “stuff“ enthalten. 

Die einfachste Konversionsart betrifft die Umformung einer DOS-Datei 
in ein Pascal-Datenfile. In diesem Fall wird die Datei Byte für Byte und Sek¬ 
tor für Sektor in das Pascal-File kopiert. 

Beim Datentransfer in ein Fotofile wird davon ausgegangen, daß die 
Quelldatei eine Binärdatei ist, so daß die ersten vier Bytes der Datei die Start- 
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adresse und die Dateilänge in Bytes angeben (wahrscheinlich die Startadresse 
einer der beiden HI-RES-Grafikseiten und die Länge eines HI-RES- 
Bildes, d.h. 8192 Bytes). Diese beiden Angaben sind jedoch nur für das DOS 
wichtig. Entsprechend wurde die Unterprozedur “stuffoto“ so ausgelegt, 
daß sie die ersten vier Bytes des ersten Datensektors ignoriert, aber alle Fol¬ 
gesektoren im Verhältnis 1:1 kopiert. Das Signal, die ersten vier Bytes nicht 
zu beachten, wird durch die Variable “fotoflag“ gegeben. Beachten Sie, daß 
“stuffoto“ als Eingabedatei nicht unbedingt ein HI-RES-Bild braucht, je¬ 
doch werden in jedem Fall die $rsten vier Bytes weggelassen. 

Die Prozedur “stuffoto“ funktioniert bis auf die Behandlung des ersten 
Sektors wie folgt: Zuerst verschiebt sie den kompletten Inhalt von “sparepa- 
ge“ nach “primpage“; da immer nur ein Sektor auf einmal gelesen wird, 
wird auch nie mehr als ein Sektor nach “primpage“ kopiert. Danach ver¬ 
schiebt sie so viele Bytes des aktuellen Sektors “s“ wie möglich nach “prim¬ 
page“. Wenn das ein kompletter Sektor ist, wird “stuffoto“ verlassen; ist es 
weniger, so wird der Differenzbetrag von “s“ nach “sparepage“ kopiert, 
und wir verlassen dann “stuffoto“ mit einer vollgeschriebenen “primpage“, 
die anschließend durch einen Aufruf von “writeblocks“ wieder gelöscht 
wird. 

Das Konvertieren in eine Textdatei ist etwas komplizierter. Man muß 
nämlich sicherstellen, daß die Zieldatei den Syntaxanforderungen von 
Pascal-Textdateien entspricht, wenn wir die Datei mit dem Pascal-Editor be¬ 
arbeiten wollen. Die Kompatibilität mit dem SYSTEM.EDITOR wird durch 
die Prozedur “stufftext“ sichergestellt. 

Eine mit dem Editor kompatible Pascal-Textdatei kann - von oben nach 
unten - wie folgt definiert werden: Eine Textdatei besteht aus zwei Kopf¬ 
blöcken zu je 512 Bytes, gefolgt von einer beliebigen Anzahl von Textseiten 
zu je 1024 Bytes. Jede Seite enthält eine Folge von Zeilen, und jede Zeile be¬ 
steht aus einer Reihe von ASCII-Zeichen der folgenden Form: 

(DLE Einrückung) (Zeichen) ... (Zeichen) (CR) 

wobei DLE und CR die ASCII-Werte 16 bzw. 13 haben. Die “Einrückung“ 
ist die Anzahl der führenden Leerzeichen einer Zeile plus 32, und “Zeichen“ 
bezeichnet ein beliebiges ausgebbares ASCII-Zeichen. Zeilen dürfen über die 
Seitengrenzen nicht hinausragen, und auf die letzte Zeile einer Seite folgen so 
viele Nullzeichen (CHR(O)), wie notwendig sind, um die 1024 Bytes einer Sei¬ 
te aufzufüllen. 

Beachten Sie, daß wegen dieser Bedingungen die - durchaus zu ertragen¬ 
de - Beschränkung einer Pascal-Zeile (nicht zu verwechseln mit einem um¬ 
gangssprachlichen, deutschen Satz) auf nur 1024 Zeichen gilt. 

Die “stufftext“-Prozedur transformiert ein DOS-File sektorweise in eine 
Pascal-Datei, wobei die Seiten- und Zeilengrenzen beachtet und alle gelese- 
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nen Zeichen in echte ASCII-Werte umgewandelt werden. 

Die Prozedur beginnt mit der Konversion in ASCII-Werte, darauf wer¬ 
den alle nicht sichtbaren Steuerzeichen in Nullzeichen umgewandelt, schließ¬ 
lich werden die Nullzeichen eliminiert. 

An dieser Stelle enthält der gelesene Sektor “s“ “lengindex“ zulässige 
Zeichen, die in den Puffer “primpage“ übertragen werden können. Wenn 
man immer davon ausgehen könnte, daß keine gelesene Zeile mehr als 256 
zulässige Zeichen enthält, dann könnte man “s“ direkt nach “primpage“ 
kopieren. Da wir das aber hier nicht tun, übertragen wir zunächst “s“ nach 
“sparepage“, die uns die Handhabung von Eingabezeilen mit bis zu 1024 
Zeichen gestattet (was ja für Pascal das Maximum ist). 

Die Prozedur erreicht nun eine WHILE-Schleife, die “sparepage“ nach 
aufeinanderfolgenden Zeilen absucht und diese in die “primpage“ über¬ 
trägt. Zu diesem Zweck werden die Variablen “leadindex“ und “lagindex“ 
zusammen mit der Byte-orientierten Funktion “scan“ benutzt, “lagindex“ 
weist auf das Ende der zuletzt übertragenen Zeile und wird zu Beginn auf 
Null gesetzt. Die “scan“-Funktion dient in diesem Zusammenhang dazu, 
das nächste Carriage Return-Zeichen zu finden, wobei die Suche eine Stelle 
hinter “lagindex“ begonnen wird, “leadindex“ wird dazu benutzt, die von 
“scan“ gefundene Stelle zu bezeichnen. Damit ist die Differenz “leadindex“ 
- “lagindex“ gleich der Anzahl der Zeichen einer Zeile, incl. des Carriage 
Return. 

Die WHILE-Schleife wird beendet, wenn alle Zeichen aus “sparepage“ 
abgesucht worden sind, oder wenn sicher ist, daß die nächste Zeile über die 
Seitengrenze hinausragen würde. Beim Verlassen dieser Schleife werden die 
Daten in “sparepage“ um den entsprechenden Betrag nach links verscho¬ 
ben, um beim erneuten Aufruf von “stufftext“ einen korrekten Start zu ge¬ 
währleisten. 


Der Brückenschlag 

Die eigentliche Arbeit in diesem Programm wird durch eine Handvoll relativ 
maschinennaher Prozeduren und Funktionen erledigt. Die wichtigste von ih¬ 
nen ist “readtrksec“, die die Brücke von DOS nach Pascal darstellt und in 
der die unterschiedlichen Methoden der beiden Betriebssysteme, auf Disket¬ 
ten zuzugreifen, deutlich werden. 

Das DOS behandelt natürlich Sektoren von 256 Bytes Länge als kleinste 
Diskettenspeichereinheit, und eine Diskette als eine Sammlung von jeweils 
16 Sektoren, innerhalb von 35 Spuren. Das Pascal-Betriebssystem dagegen 
greift auf Blöcke von jeweils 512 Bytes Länge zu und teilt eine Diskette in 
280 Blöcke ein. Beim Lesen eines DOS-Sektors von Pascal aus muß der ge- 


61 


samte Block, der den gewünschten Sektor enthält, gelesen und danach fest¬ 
gestellt werden, welche 256 Bytes daraus die richtigen sind. 


Der DOS-Pascal-Tango 

Haben Sie Ihr BASIC-Programm fertig? Ok, kopieren Sie es mit PUFFIN 
nach Pascal, übersetzen Sie es mit Ihrem Supercompiler (der natürlich in 
Pascal geschrieben ist) in 6502-Code und konvertieren Sie es dann mit Danas 
HUFFIN Programm wieder ins DOS-Format. Und ab geht die Post! 

Was sagen Sie? Sie haben solch einen Compiler nicht? 

Schade, hätte so schön sein können...! 

Blaise, ade!!! 
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(*$S+*) 

(*$v-*) 

PROGRAM puffin; 

CONST 

maxunit =12; (* Groesste Pascal Unitnuramer *) 

raaxdir =105; (* Groesstraoegliche Anzahl von DOS Directory Eintraegen *) 

maxlink =122; (* Hoechstzahl fuer Eintraege in Spur/Sektor Liste *) 
didleng =30; (* Groesste Laenge eines DOS Filenamens *) 
pidleng =23; (* Maximale Laenge von Pascal Filenaraen *) 

sidleng = 5; (* Maximale Laenge von Pascal Filenaraenssuffixen z.B. ".TEXT" *) 

sectsize =256; (* DOS Sektorgroesse *) 

blocksize=512; 

pagesize =1024; (* Textseitengroesse in Pascal *) 
maxbyte =255; 

dirtrack =17; (* Spurnummer, bei der das DOS Directory liegt *) 
firstdirsect=15; (* Erster Sektor eines DOS Directories *) 

TYPE 

byterange =0..maxbyte; 
sectrange =0..sectsize; 
dirrange =0..maxdir; 
linkrange =0..maxlink; 
unitrange =0..maxunit; 
blockrange=0..blocksize; 
pagerange =0..pagesize; 

sectbuffer =PACKED ARRAY[byterange] 0F byterange; 
blockbuffer=PACKED ARRAY[1..blocksize] 0F byterange; 
pagebuffer =PACKED ARRAY[1..pagesize] 0F byterange; 

link=PACKED RECORD 

(* Wird zur Bezeichnung von Spur/Sektor Kombinationen benutzt *) 
tracknum:byterange; 
sectnura:byterange; 

END; 

tslist=(* Spur/Sektor Liste *) 

RECORD 

continuation:link; 

list:PACKED ARRAY[1..raaxlink] 0F link; 

END; 

did=STRING[didleng]; 
pid=STRING[pidleng]; 
sid=STRING[sidleng]; 

dosfilekinds= (* DOS Filetypen *) 

(volinfo,unknown,dftext,dfinteger »applesoft,binary); 
pasfilekinds= (* Einige Pascal Filetypen *) 

(textfile,fotofile,untyped); 

(* Pascal Format der in einem DOS Directory enthaltenen Informationen *) 
dosdirentry=PACKED RECORD CASE dfkind:dosfilekinds 0F 
volinfo: (* Hier das volume info *) 

(dunitnura:unitrange; 
dnumentries:dirrange); 
unknown, 
dftext, 
dfinteger, 
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un:=stoi; 

IF NOT (un IN [0,4,5,9..12]) THEN writeln(chr(7)); 

UNTIL un IN [0,4,5,9..12]; 
unitnum:=un; 
get__unit_num:=(un<>0); 

END; 

PROCEDURE capitalize(VAR line:STRING); 

CONST 

ordsmla=97; 

ordsmlz=122; 

shiftcase=32; 

VAR 

index:0..maxbyte; 

BEGIN 

FOR index:=l TO length(line) D # 0 
IF linefindex] IN [chr(ordsmla)..chr(ordsmlz)] 

THEN line[index]:=chr(ord(line[index])-shiftcase); 

END; 

FUNCTION getpasid(VAR name:pid):B00LEAN; 

BEGIN 

vriteln; 

vriteln('Geben Sie den Namen des Pascal-Zielfiles an.'); 

vriteln(*Zum Abbrechen <RET> eingeben:'); 

vriteln; 

write( '»'); 

readln(name); 

IF (length(name)=0) THEN getpasid:=FALSE 
ELSE BEGIN 
capitalize(name); 
getpasid:=TRUE; 

END; 

END; 

FUNCTION getdosid(VAR name:did);BOOLEAN; 

BEGIN 

vriteln; 

vriteln('Name des zu transferierenden DOS-Files'); 

vriteln('Zum Abbrechen <RET> eingeben:'); 

vriteln; 

vrite('»'); 

readln(name); 

IF (length(name)=0) THEN getdosid:=FALSE 
ELSE BEGIN 

capitalize(narae); * 

getdosid:=TRUE; 

END; 

END; 

PROCEDURE getfiletype(VAR suffix:sid;VAR filetype:pasfilekinds) 
BEGIN 
vriteln; 

vriteln('Transferieren als:'); 
vriteln; 

vriteln('T)ext file, F)oto file, oder D)aten (binaer) file?'); 

vriteln; 

vrite('» '); 

read(keyboard,ch); 
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applesoft, 
binary: 

(file_tsl:link; (* Adresse der Spur/Sektor Liste eines Files *) 
locked:BOOLEAN; (* Gibt an, ob File schreibgeschuetzt *) 
nameidid; 

sectorcount:byterange); 

(* Anzahl der zugehoerigen Diskettensektoren *) 

END; 

dosdirectory=ARRAY[dirrange] OF dosdirentry; 

VAR 

dosdiridosdirectory; (* Aktuelles DOS Directory *) 
unitnum:unitrange; 
ioerror:INTEGER; 
ch:CHAR; 

FUNCTION readtrksec(unitnum:unitrange; 

trksec:link;VAR sb:sectbuffer;VAR ioerror:INTEGER):BOOLEAN; 
(* Liest Sektornummer 'trksec.sectnura' aus der Spur Nr. 1 trksec.tracknum 1 
von Unit Nr. 'unitnum* *) 

VAR 

block:blockbuf fer; 
blocknum,off set:INTEGER; 

BEGIN 

WITH trksec DO 
BEGIN 

(* Berechne Halbblock, der dem gewuenschten Sektor entspricht *) 

IF (sectnum IN [0,15]) THEN blocknum:=sectnum 
ELSE blocknum:=15-sectnum; 

IF (odd(blocknum)) THEN offset:=256 
ELSE offset:=0; 

(* Berechne nun den Blocknummernoffset von Spur Null *) 
blocknum:=(blocknum DIV 2)+8*tracknum; 

END; (* WITH trksec DO *) 

(*$I-*) 

unitread(unitnum,block,sizeof(block),blocknum); 

(*$I+*) 

ioerror:=ioresult; 

IF NOT (ioerror=0) THEN readtrksec:=FALSE 
ELSE BEGIN 

(* Schreibe in Sektorpuffer *) 
moveleft(block[offset+1],sb,sizeof(sectbuffer)); 
readtrksec:=TRUE; 

END; (* IF...THEN...ELSE *) 

END; 

FUNCTION writetrksec(unitnum:unitrange; 

trksec:link;VAR sb:sectbuffer;VAR ioerror:INTEGER):B00LEAN; 

VAR 

blocknum,offset:INTEGER; 
block:blockbuffer; 

BEGIN 

(* S. Kommentare zu 'readtrksec' *) 

WITH trksec DO 
BEGIN 

(* Berechne Halbblock, der dem gewuenschten Sektor entspricht *) 

IF (sectnum IN [0,15]) THEN blocknum:=sectnum 
ELSE blocknum:=15-sectnum; 

IF (odd(blocknum)) THEN offset:=256 
ELSE offset:=0; 
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(* Berechne nun den Blocknuramernoffset von Spur Null *) 
blocknum:=(blocknum DIV 2)+8*tracknura; 

END; (* WITH trksec DO *) 

(*$I-*) 

unitread(unitnura,block,sizeof(block)»blocknum); 

(*$I+*) 

ioer ror:=ioresult; 

IF NOT (ioerror=0) THEN writetrksec:=FALSE 
ELSE BEGIN 

raoveleft(sb,block[offset+l],sizeof(sectbuffer)); 

(*$I-*) • 

unitwrite(unitnura,block,sizeof(block)); 

(*$I+*) 

ioerror;=ioresult; 
writetrksec:=ioerror=0; 

END; 

END; 

FUNCTION searchdir(target;did;VAR indexidirrange);B00LEAN; 

VAR 

foundiBOOLEAN; 

BEGIN 

found:=FALSE; 

index:=dosdir[0].dnumentries; 

WHILE NOT (found OR (index=0)) DO 
BEGIN 

found;=target=dosdir[index].name; 
index:=index-l; 

END; 

IF found THEN index:=index+l; 
searchdir:=found; 

END; 

FUNCTION stoi:INTEGER; 

VAR 

ch:CHAR; 
x:INTEGER; 

BEGIN 
x:=0; 
read(ch); 

WHILE ch IN [ , 0 , ..'9 t ] DO 
BEGIN 

x;=10*x+(ord(ch)-ord('0*)); 
read(ch); 

END; 

writeln; 

stoi:=x; 

END; 

FUNCTION get_unit_nura(VAR unitnurarunitrange)iBOOLEAN; 

VAR 

un: INTEGER; 

BEGIN 

REPEAT 

writeln; 

writeln('Geben Sie die Unitnumraer [4,5,9..12] des Laufwerks an,’); 
writeln('in dem sich die zu lesende DOS-Diskette befindet. Zum'); 
writeln(*Abbrechen "0" eingeben. *); 
writeln; 
write( *» '); 
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WHILE NOT (ch IN ['t','f','d',*T*,'F',*D*]) DO 
BEGIN vrite(chr(7));read(keyboard,ch); END; 
vriteln(ch); 

CASE ch OF 

'T',' t':BEGIN suffix:='.TEXT 1 ;filetype:=textfile; END; 

*F 1 ,*f':BEGIN suffix:='.FOTO*;filetype:=fotofile; END; 

'D',*d*:BEGIN suffix:='';filetype:=untyped; END; 

END; 

END; 

PROCEDURE printmenu; 

CONST 

cleoln=29; 

BEGIN 

gotoxy(0,0); 

vrite(chr(cleoln),'C)atalog, A)nzeige, T)ransfer, Q)uit?'); 
END; 

PROCEDURE readcomraand(VAR ch:CHAR); 

BEGIN 

read(keyboard,ch); 

WHILE NOT(ch IN ['C','c','A',’a','T*, f t',’Q', , q f ]) DO 
BEGIN 

vrite(chr(7)); 
read(keyboard f ch); 

END; 

vriteln; 

END; 

PROCEDURE displayentry(de:dosdirentry); 

BEGIN 

WITH de DO 
BEGIN - 

vrite(name, 1 ':(didleng-length(name)+l)); 

CASE dfkind OF 
dftext:vrite( f text*:6); 
dfinteger:write(^nt*:6); 
applesoft:write( f soft’:6); 
binary:vrite(’bin f :6); 
unknown:write('unb *:6); 

END; 

IF locked THEN write('ja * s8) 

ELSE write('nein':8); 
write(sectorcount:9); 

writeln(filetsl.tracknum:6,'-',filetsl.sectnura:3); 

END; 

END; 

PROCEDURE displayheader; 

BEGIN 

vrite('File Name'); 

vrite('Typ ':((didleng-length('file narae'))+7)); 
write('Sehr.g.':8); 
write('Sektoren':9); 
vriteln('SSL link':10); 

END; 
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PROCEDURE displaydir; 

CONST 
cleos=ll; 
esc=27; 
maxlines=21; 

VAR 

cumsectors:INTEGER; 
count:dirrange; 

BEGIN 

page(output); 
gotoxy(0,1); 

cumsectors:=0; # 

IF dosdir[0].dnumentries=0 THEN writeln('Das aktuelle Directory ist leer!') 
ELSE BEGIN 

displayheader; 

FOR count:=l TO dosdir[0].dnumentries DO 
BEGIN 

displayentry(dosdir[count]); 

cumsectors:=cumsectors+dosdir[count].sectorcount; 

IF (count MOD maxlines)=0 THEN 
BEGIN 

vrite('Weiter mit <RET>, Abbrechen mit <ESC> '); 
read(keyboard,ch); 

IF ch=chr(esc) THEN exit(displaydir) 

ELSE BEGIN gotoxy(0,2);write(chr(cleos)); END; 

END; 

END; 

vrite(dosdir[0].dnumentries,' Filea auf Diskette, '); 
vrite(curasectors,' Sektoren belegt'); 

END; 

END; 

PROCEDURE catalog; 

CONST 

nextlink = 1; (* Das Byte Nr. 1 relativ zum Directorysektor ist das Link 
zum naechsten Directorysektor *) 

zerobase =11; (* 1. Byte der Fileinforraation in einem Directorysektor *) 
entrylength=35; (* DOS-Directoryeintraege belegen 35 Bytes *) 
mark =maxbyte; (* Geloeschte Eintraege werden im (relativen) Byte Nr.O 

"markiert" *) 

maxindex = 7; (* Maximal sieben Directoryeintraege pro Sektor *) 

space= 32; (* ASCII Leerzeichen *) 
tilde=126; (* ASCII tilde *) 

TYPE 

indexrange=0..maxindex; 

entrybuffer=PACKED ARRAY[1..entrylength] OF byterange; 

VAR 

sectorindex:indexrange; 
entrybase:byterange; 
dir_link:link; 
dir__sector: sectbuf f er; 
nextentry:entrybuffer; 
entrycount:dirränge; 
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FUNCTION eodir(dirlink:link):BOOLEAN; 
BEGIN 

WITH dirlink DO 

eodir :=(sectnura=0) AND (tracknura=0); 
END; 


PROCEDURE fill_dir_entry(VAR deidosdirentry;VAR ebientrybuffer); 

CONST 

linkoffset = 1; (* Relatives Byte Nr. null gibt die Lage seiner 
Spur/Sektor Liste an *) 

kindoffset =3; (* Relatives Byte Nr. zwei bezeichnet den Filetyp 
des Eintrages *) 

nameoffset = 4; (* Mit relativem Byte Nr. drei beginnt der Filename *) 
countoffset=34; (* Relatives Byte Nr. 33 ist die Sektoranzahl 
(MOD sectsize) der Datei *) 

lockbit -128; (* In schreibgeschuetzten Dateien ist das hoechstwertige 
Byte des Filetypenbytes gesetzt *) 

VAR 


j,kind:byterange; 
nonblank:0..didleng; 

BEGIN 

WITH de DO 
BEGIN 

filetsl.tracknum:=eb[linkoffset]; 
filetsl.sectnum:=eb[linkoffset+1]; 
kind:=eb[kindoffset]; 

IF NOT ((kind MOD lockbit) IN [0,1,2,4]) THEN dfkind;=unknown 
ELSE CASE (kind MOD lockbit) 0F 
0:dfkind:=dftext; 

1:dfkind:=dfinteger; 

2:dfkind:=applesoft; 

4:dfkind;=binary; 

END; 

IF ((kind DIV lockbit)=1) THEN locked:=TRUE 
ELSE locked:=FALSE; 

FOR j:=0 TO (didleng-1) DO 
BEGIN 

(* Hoechstwertiges Bit loeschen -> echter ASCII Wert *) 
eb[nameoffset+j]:=eb[nameoffset+j] MOD 128; 

(* Sonderzeichen loeschen *) 

IF NOT (eb[nameoffset+j] IN [space..tilde]) THEN eb[naraeoffset+j]:=space 
END; 

(* Letztes linkes Leerzeichen des Namensfeldes suchen *) 
nonblank:=-scan(-didleng,<>' ’,eb[nameoffset+didleng-l]); 


(* Initialisierung der Laenge von ’narae’ *) 
(*$R-*) 

name[0]:=chr(didleng-nonblank); 

(*$R+*) 

(* Schliesslich Name einkopieren *) 
raoveleft(eb[nameoffset],name[1],length(narae)); 
sectorcount:=eb[countoffset]; 

END; (* WITH de DO *) 

END; (* filldirentry *) 


FUNCTION eodirsector 
(VAR indexrindexrange; 

VAR dirsector:sectbuffer;VAR entrybaseibyterange):B00LEAN; 
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VAR 


nofile:BOOLEAN; 

BEGIN 

nofile:=TRUE; 

WHILE (nofile AND (index<maxindex)) DO 
BEGIN 

index:=index+l; 

entrybase:=zerobase+(index-l)*entrylength; 
nofile:=(dirsector[entrybase] IN [O.mark]); 
END; 

eodirsector:=nofile; 

END; 


BEGIN (* catalog *) 
page(output); 

IF NOT getunitnum(unitnum) THEN exit(catalog); 

WITH dir_link DO 
BEGIN 

tracknura:=dirtrack; 
sectnum:=firstdirsect; 

END; 

entrycount:=0; 

WHILE NOT eodir(dirJLink) DO 
BEGIN 

IF NOT readtrksec(unitnum,dir_link,dirjsector,ioerror) 

THEN BEGIN writeln('E/A-Fehler 1 »ioerror,' beim Lesen des Directories'); 
exit(catalog); 

END 

ELSE BEGIN 
sectorindex:=0; 

WHILE NOT eodirsector(sectorindex,dir_jsector f entrybase) DO 
BEGIN 

moveleft(dir__sector[entrybase]»nextentry»entrylength); 
entrycount:=entrycount+l; 
filldirentry(dosdir[entrycount]»nextentry); 

END; 

END; (*IF...THEN...ELSE *) 

WITH dirJLink DO 
BEGIN 

tracknura:=dir_sector[nextlink]; 
sectnum:=dir_sector[nextlink+1]; 

END; 

END; 

WITH dosdir[0] DO 
BEGIN 

dnumentries:=entrycount; 

dunitnum:=unitnum; 

END; 

displaydir; 

END; (* catalog *) 
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(*$IDPTH2.1:TRANSFER.TEXT*) 


BEGIN 

WITH dosdir[0] DO 

BEGIN dfkind:=volinfo; dnuraentries:=0; dunitnura:=0; END 
page(output); 
gotoxy(0,5); 

vriteln('Willkommen bei PUFFIN!'); 

REPEAT 
printraenu; 
readcomraand(ch); 

CASE ch OF 
'c','C'icatalog; 

'a','A*:displaydir; 
f t','T':transfer; 

END; 

UNTIL ch IN ['Q 1 ,’q']; 

END. 














Ron DeGroat 


Pascal Speicher 
diagnose (PMU) 


Das PMU-Programm (Pascal Memory Utility) wurde zur Unterstützung für 
den Benutzer entwickelt, das Apple Pascal System in seine Komponenten zu 
zerlegen und sich in der untersten Systemebene zurechtzufinden. Mit PMU 
kann man über eine große Anzahl von Benutzerbefehlen alle Teile des 
Pascal-Betriebssystems disassemblieren, untersuchen oder in beliebiger Wei¬ 
se modifizieren. Die auffälligste Charakteristik dieses Programms ist die 
Verwendung von Monitor-ROM-Subroutinen für den größten Teil der 
PMU-Funktionen, insbesondere für E/A-Operationen. Der in Pascal ge¬ 
schriebene Teil des Programms dient hauptsächlich dazu, die Benutzeroptio¬ 
nen anzuzeigen und die entsprechenden ROM-Routinen aufzurufen. 

Eine Verwendung von ROM-Routinen hat zwei wesentliche Vorteile: 
zum einen ist die meiste Arbeit damit bereits erledigt, zum anderen sind die 
in Maschinencode vorliegenden Routinen blitzschnell. Eingefleischte Pascal- 
Freaks mögen dabei vielleicht die Nase rümpfen, Pragmatiker hingegen wer¬ 
den sich des im ROM plazierten Programmcodes gern bedienen. 

Vor einer Beschäftigung mit der Arbeitsweise von PMU steht das Wissen 
um die Funktionsweise der Language Card. Unter Pascal muß die Apple II- 
Hauptplatine auf 48K RAM ausgebaut sein (Adressen SO-BFFF). Weitere 4K 
(SC000-CFFF) werden von Peripheriegeräten und E/A-Treibern belegt. Da¬ 
mit bleibt ein Adreßbereich von nur 12K (SD000-FFFF) der 16K RAM auf 
der Language Card frei. Dieses Problem ist zu bewältigen, indem man den 
Adreßbereich $D000-DFFF (4K) doppelt auslegt und zwischen beiden Banks 
mit Hilfe von Kontrollcodes hin- und herschaltet. Die Kontrollcodes sind 
spezielle Speicherzellen, die wie Schalter funktionieren und bei einem Zu¬ 
griff von einer (4K) Bank auf die andere umschalten. Nähere Informationen 
hierzu finden Sie im Apple Language System Manual , Anhang D unter 
“Language Card Control Codes“. Durch die Verwendung der Schalter, die 
bestimmen, auf welche der beiden 4K Banks jeweils zugegriffen werden soll, 
ist es möglich, 8K Bytes in einem Adreßbereich von nur 4K Bytes zu spei¬ 
chern. Zusätzlich zur Bank-Wechselschaltung dienen Kontrollcodes dazu, 
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das RAM auf der Language Card gegen ungewolltes Überschreiben zu schüt¬ 
zen und es ein- oder auszuschalten. 

Durch Abschalten des RAMs werden zwei ROMs aktiviert: 


das Autostart-ROM (SF800-FFFF) auf der Language Card; 
das Hauptplatinen-ROM (SD000-F7FF), das den BASIC-Interpreter ent¬ 
hält. 

Der größte Teil des Pascal Systems liegt im RAM der Language Card 
(SD000-FFFF). Das BIOS (Basic Input/Output System) befindet sich in der 
zweiten 4K Bank (SD000-DFFF), während der P-Code-Interpreter die erste 
4K Bank (SD000-DFFF) und einen Teil der restlichen 8K der Language Card 
belegt ($E000-FFFF). Dadurch entsteht das Problem, daß das RAM auf der 
Language Card nicht gelesen werden kann, wenn die ROMs aktiviert sind. 
Glücklicherweise greifen die meisten von PMU verwendeten Monitorrouti¬ 
nen nicht direkt auf das RAM der Language Card zu. Ein Teil des ROM- 
Disassemblers muß ins RAM kopiert werden, damit bestimmte Adressen ge¬ 
ändert werden können (vgl. PROC INITDISASSEM in Listing Nr.2). Diese 
Änderungen erlauben es, das RAM jedesmal ein- oder auszuschalten, wenn 
wenn der ROM-Disassembler ein Byte benötigt. Die beiden 4K Banks auf der 
Language Card verkomplizieren die Sache noch weiter. Die Bank¬ 
umschaltung und das Hin- und Herschalten zwischen RAM und ROM wird 
von den in Listing Nr.2 abgebildeten Assemblerroutinen automatisch über¬ 
nommen. Trotz dieser Komplikationen hat die Vorgehens weise einen unbe¬ 
streitbaren Vorteil: Durch die 12K des ROM und die zweite 4K Bank im 
RAM hat das Language System einen effektiv adressierbaren Speicherplatz 
von 80KÜ 

Eine weitere unschätzbare Besonderheit des PMU-Programms ist die 
praktisch narrensichere Dateneingabe. Unzulässige Zeichen werden nicht ak¬ 
zeptiert, wenn Fehler auftreten, warnt den Benutzer sofort ein unangeneh¬ 
mer Lautsprecherton. Selbst Längenbegrenzungen werden in der Form be¬ 
rücksichtigt, daß in Erwartung einer Hex-Adressen-Eingabe nur Hexadezi¬ 
malziffern (0..F) zugelassen und nicht mehr als vier Zeichen akzeptiert wer¬ 
den. 

Das PMU-Hauptmenü hält folgende Benutzerbefehle bereit: 

PMU:D(ISASM UNTERSUCHEN 
A(ENDERN P(RINTER[AUS] 

S(UCHEN M(ONITOR 
B(ANK [1] E(NDE 
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D(ISASM 


(Disassemblieren) 

Ermöglicht dem Anwender, Speicherbereiche mit dem Di¬ 
sassembler des Monitors zu disassemblieren. 


UNTERSUCHEN 

Gibt Speicherbereiche im Hexadezimal- und ASCII- 



Format aus. 

A(ENDERN 

Ermöglicht das Ändern von Speicherinhalten. 

P(RINT[EIN] 

Ist der in Klammern stehende Wert “EIN“, so wird die 
Datenausgabe auf den Drucker geleitet (80-Spalten- 
Format). Ist der Wert “AUS“, erfolgt die Ausgabe im 40- 
Zeichen-Format auf dem Bildschirm. Die Wechselschal¬ 
tung zwischen beiden Möglichkeiten wird über die P- 
Taste gesteuert. 

S(UCHEN 

Läßt das Auffinden einer Folge aus zwei oder drei hexa¬ 
dezimalen oder ASCII-Werten im Speicher für den Be¬ 
nutzer zum Kinderspiel werden. 

M(ONITOR 

Ruft den ROM-residenten Monitor auf. Das RAM der 
Language Card kann nicht adressiert werden, auf das ge¬ 
samte übrige RAM kann man jedoch mit den Monitorbe¬ 
fehlen zugreifen. Der Rücksprung zu PMU erfolgt durch 
Eingabe von Ctrl-Y, «RETURN». 

B(ANK[2] 

(Bankumschaltung) 

Erlaubt ein Umschalten auf die andere 4K Bank. Die au¬ 
genblicklich aktivierte Bank wird in eckigen Klammern 
angezeigt. Durch Drücken der B-Taste wird auf die je¬ 
weils andere Bank umgeschaltet. 


DISASM, UNTERSUCHEN und AENDERN haben eigene Untermenüs, 
z.B.: 
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DISASM: A(UFLISTEN, W(EITER 
N(EUER BEREICH B(ANK[1] E(NDE 

A(UFLISTEN 

Disassembliert zwanzig Zeilen, beginnend bei einer vom 
Benutzer angegebenen Adresse. 


W(EITER 

Disassembliert die nächsten zwanzig Zeilen. 

N(EUER BEREICH 

Disassembliert einen vom Benutzer bestimmten Speicher¬ 
bereich. 


B(ANK 


Wie ein BANK-Befehl im PMU-Hauptmenü. 


UNTERSUCHEN hat das gleiche Menü wie DISASM. Hierbei wird der an¬ 
gegebene Speicherbereich jedoch nicht disassembliert, sondern im Hex- und 
ASCII-Format ausgegeben. 

Unten haben wir ein Beispiel für das AENDERN-Menü aufgeführt: 

[ESC] = ENDE, 

[CR] = ÜBERSPRINGEN) 

STARTADR 400 

400- A0 A0 

401- Bl BE 

402- C3 

Die erste Spalte gibt die betreffende Adresse in Hex-Schreibweise an, in der 
zweiten Spalte steht der ursprüngliche Speicherinhalt und die dritte Spalte 
zeigt den neuen Wert. Durch Eingabe eines CR bleibt der aktuelle Wert un¬ 
verändert, und die nächste Adresse wird ausgegeben. Durch Drücken der 
Esc-Taste wird die Änderungsoption verlassen und die Kontrolle wieder an 
die Hauptbefehlsebene von PMU zurückgegeben. Mit Ausnahme des Moni¬ 
tors funktioniert die Esc-Taste auch bei den anderen Befehlen von PMU. 
Der SUCHEN-Befehl kann dazu verwendet werden, auf einfache Weise eine 
Sequenz aus zwei oder drei Bytes zu finden, die hexadezimal oder als ASCII- 
Werte angegeben werden. Bevor SUCHEN startet, wird die zweite RAM 
Bank (SD000-DFFF) in die erste HIRES-Grafikseite kopiert (S2000-2FFF) 
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um Probleme zu vermeiden, die durch die Bank-Umschaltung entstehen 
könnten. Die ursprüngliche Suchroutine benötigte mindestens fünf Minuten, 
um die gesamten 64K RAM zu durchsuchen. Zur Verbesserung der Ge¬ 
schwindigkeit wurde der zeitkritische Teil der Pascal-Routine durch eine As¬ 
semblerprozedur ersetzt, mit der sich die Suchzeit auf 4,5 Sekunden verkür¬ 
zen ließ (die sich jedoch entsprechend verlängert, wenn viele Übereinstim¬ 
mungen gefunden werden). 

SUCHEN[3]: H)EX, B(UCHST„ E(NDE 

Die [3] gibt an, daß nach einer Sequenz von drei Werten gesucht werden soll. 
Will man eine aus nur zwei Werten bestehende Hex-Sequenz finden (z.B. die 
Adresse $C9F7), reicht es, auf diesen Suchmodus durch Eingabe der Ziffer 2 
umzuschalten. Der Bildschirm sieht dann wie folgt aus : 

SUCHEN[2]: H)EX, B(UCHST., E(NDE 
Drückt man jetzf die H-Taste, so entwickelt sich etwa folgender Dialog: 

NACH SEQUENZ SUCHEN 

1) F7 (Bei Adressen kommt das LSB zuerst) 

2) C9 

DURCHSUCHE SPEICHER... 

SEQUENZ F7 C9 


FF84 FFAO FFCC (Die gefundenen Adressen sind in Hex angegeben) 

Ein kleiner Speicherbereich (Adressen $C030-$C100) wird dabei absichtlich 
ausgelassen, da er Soft Switches enthält, mit denen verschiedene E/A- 
Funktionen aktiviert werden. Würden diese Adressen nicht übersprungen, 
resultierte dies in einer Abschaltung der normalen Textdarstellung. 

Der MONITOR-Befehl von PMU eignet sich nicht dazu, das Pascal- 
System zu untersuchen, da der Monitor nicht auf der Language Card operie¬ 
ren kann (Monitor und Pascal belegen den gleichen Speicherbereich). Man 
kann jedoch den Monitor dazu verwenden, die Entwicklung anderer PMU- 
Befehle zu unterstützen, die ebenfalls ROM-Subroutinen verwenden. Man 
kann ihn auch dazu benutzen, Fehler in Maschinenroutinen zu suchen, die 
mit dem UCSD-Assembler entwickelt wurden. Mit der Sequenz: Ctrl-Y, 
«RETURN» gelangt man wieder ins PMU-Programm zurück. Vom Monitor 
aus kann man auch das BASIC aufrufen; ein Rücksprung nach Pascal ist 
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dann jedoch nicht mehr möglich, da BASIC die unangenehme Angewohn¬ 
heit hat, den Pascal Stack durcheinander zu bringen. 

Um PMU startklar zu machen, muß zuerst das in Listing Nr.l abge- 
drucke Programm kompiliert und die korrekt assemblierten Routinen aus 
Listing Nr.2 in das Codefile eingebunden werden. 

Im folgenden wollen wir Sie mit ein paar Hilfen ausstatten, mit denen es 
Ihnen leichter fallen sollte, das Pascal-Betriebssystem zu untersuchen. Eine 
gute Quelle bietet das Kapitel “Pascal Intern“, in dem viele brauchbare In¬ 
formationen über das Pascal-System zu finden sind. 

Untenstehende Tabelle enthält einige nützliche Speicheradressen. Die in 
eckigen Klammern angegebenen Zahlen bezeichnen die entsprechende Spei¬ 
cherbank: 

Tab.l Pascal Systemadressen 


Beschreibung 


T astatureingabe-Puffer 
(Normalerweise) Heap-Anfang 
Zuletzt gelesenes Directory 
SYSCOM 
P-Code Decoder 
P-Code-Sprungtabelle 
Konsolen-Eingaberoutine 
(CONCK) 

Konsolen-Initialisierung (CINIT) 
Schreiben auf Konsole (CWRITE) 
Schreiben auf Drucker (PWRITE) 
Drucker-Initialisierung (PINIT) 
Schreiben auf Disk (DWRITE) 
Lesen von Disk (DREAD) 
Disk-Initialisierung (DINIT) 

Lesen von externem Gerät 
(RREAD) 

Schreiben auf externes Gerät 
(RWRITE) 

Initialisierung externes Gerät 
(RINIT) 


Pascal 1.1- 

Pascal 11.1 

Adresse 

Adresse 

3B1-3FF 

3B1-3FF 

COO 

COO 

D72-155E 

D72-155E 

BDDE 

BDDE 

D253[l] 

D243[l] 

D000[1] 

D000[l] 

D772[2] 

D681[2] 

D734[2] 

D898[2] 

D7D0[2] 

D950[2] 

D830[2] 

D9C3[2] 

D788[2] 

D8EF[2] 

D038[2] 

D028[2] 

D03C[2] 

D02C[2] 

D000[2] 

D683[2] 

D84E[2] 

D9E5[2] 

D809[2] 

D99C[2] 

D79C[2] 

D91C[2] 


78 


Mit PMU sind kleinere Modifikationen des 
Pascal-Systems leicht möglich. So läßt sich zum 
Beispiel der Textdarstellungsmodus ändern, in¬ 
dem man die Adressen $DAB0[2] (Pascal 1.1) 
bzw. $D8ED[2] (Pascal II. 1) von $40 (Normal¬ 
modus) auf blinkende ($00) oder inverse Darstel¬ 
lung ($40) setzt. Auch bestimmte Tastenzuord¬ 
nungen lassen sich ändern : 

Tab.2 Zuordnung der Pascal Ctrl-Tasten 


Taste Hex.Wert 1.1 Adresse 11.1 Adresse 


Ctrl-K 

OB 

D7A2[2] 

D6A5[2] 

Ctrl-A 

01 

7A8[2] 

D6AB[2] 

Ctrl-Z 

1A 

D7BA[2] 

D6BD[2] 

Ctrl-F 

06 

BE31 

BE31 

Ctrl-Shift-P 

00 

BE32 

BE32 

Ctrl-S 

14 

BE33 

BE33 


Sie müssen natürlich darauf achten, daß Sie kei¬ 
ne Tastenzuordnungen vornehmen, die mit vor¬ 
her festgelegten Werten kollidieren. Da diese 
Änderungen im Hauptspeicher vorgenommen 
werden, gelten sie nur bis zur nächsten Initiali¬ 
sierung. Die Speicheränderung kann jedoch 
auch permanent gemacht werden, indem man 
die entsprechenden Stellen der 
SYSTEM.APPLE-Datei auf der Boot-Diskette 
ändert. Diese Methode ist relativ einfach, da die 
Speicheradressen $D000[2]-DFFF und $E000- 
FFFF hintereinander in den Blöcken 0-23 der 
SYSTEM.APPLE-Datei abgelegt sind, d.h. 
$D000[2] ist das 0-te Byte in Block 0 und $FFFF 
ist das letzte (511 -te) Byte in Block 23. Die erste 
Bank ($D000[1]-DFFF) befindet sich in den 
Blocks 24 bis 32. Änderungen des Diskettenfiles 
können mit dem in diesem Buch vorgestellten 
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Programm PASCAL ZAP vorgenommen wer¬ 
den. Bei Verwendung des PASCAL ZAP- 
Programms müssen sie die korrekte absolute 
Blocknummer des zu ändernden Blocks kennen. 
Normalerweise ist der 0-te Block von 
SYSTEM.APPLE Block 6 auf der Diskette. 


Da Änderungen der Disk-Dateien mehr oder weniger permanent sind, ist es 
besser, Systemänderungen im Hauptspeicher vorzunehmen. Gibt man dem 
Programm, mit dem der Speicherinhalt geändert wird, den Namen SY¬ 
STEM.STARTUP, dann wird es bei jedem Booten des Systems automatisch 
ausgeführt. Die Systemmodifikationen können dann einfach unwirksam ge¬ 
macht werden, indem man den Namen des STARTUP-Programms ändert 
und die Diskette neu bootet. 

Im Allgemeinen sollten Änderungen des Betriebssystems aus Gründen 
der Kompatibilität vermieden werden. Es gibt jedoch bestimmte Anwendun¬ 
gen (z.B. Darstellung von Kleinbuchstaben), wo eine Modifikation des Be¬ 
triebssystems die beste (cleverste oder einfachste) Lösung des Problems dar¬ 
stellt. Es ist nicht allzu schwer, PMU um weitere Befehle zu erweitern. So 
wurde der Hex/ASCII-Suchmodus hinzugefügt, kurz nachdem das Pro¬ 
gramm veröffentlicht worden war. Ich möchte Sie als Leser dazu ermutigen, 
eigene Befehlsoptionen zu entwickeln oder wenigstens eigene Ideen für wei¬ 
tere Implementierungen beizusteuern. Je mehr Befehle hinzugefügt werden, 
desto nützlicher wird PMU. 

Mit PMU läßt sich das Pascal System eingehend untersuchen. Es wurde 
nicht dazu entwickelt, um dem Benutzer Peek- und Poke-Befehle wie im 
BASIC zur Verfügung zu stellen, da man damit von absoluten Adressen ab¬ 
hängig wird und die so entstehenden Programme wenig flexibel sind. Die 
Absicht von PMU liegt vielmehr darin, dem Benutzer direkten Zugriff auf 
das Pascal System zu ermöglichen. Ich hoffe, dieses Programm hilft, die 
Neugierde derer zu befriedigen, die genau wissen wollen, wie das Betriebs¬ 
system funktioniert. Darüberhinaus kann das Programm als nützliches 
Software-Werkzeug funktionieren und denen helfen, die die Möglichkeiten 
des UCSD-Pascal voll ausschöpfen wollen (oder müssen). 
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(* LISTING #1: PASCAL MEMORY UTILITY *) 

(* *) 

(* VON RON DEGROAT 15-APR-81 *) 

(* DEUTSCHE ADAPTION *) 

(* BODO MESEKE *) 


(*$S+*) 
PROGRAM PMU; 


CONST PRINTADDR=-16128; 
COUTl=-528; 


(* $C100 *) 
(* $FDFO *) 


TYPE MAGIC=RECORD CASE BOOLEAN OF 

TRUE: (ADDR: INTEGER); 
FALSE:(VECTOR: A INTEGER); 
END; 


SETOFCHAR=SET OF CHAR; 

# 

BYTE=0..255; 


ENDADDR,ADDR,VAL,BANK 

INTEGER; 

NUMOFCOLS,TEMP 

INTEGER; 

IC (*INST. ZAEHLER*) 

INTEGER; 

SEARCHADDR 

INTEGER; 

EOL,BELL,CH 

CHAR; 

ESC,BS,CR 

CHAR; 

DESET,HEXSET,PMUSET 

SETOFCHAR; 

CHRSET,OKSET 

SETOFCHAR; 

GOOD,ESCOK 

BOOLEAN; 

CSW 

MAGIC; 

HEXADDR,HEXBYTE 

STRING; 

PSW 

STRING[3]; 


EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 


PROCEDURE INITDISASSEM; 

PROCEDURE DISASSEM; (* BENUTZT IC *) 
PROCEDURE MONITOR; 

PROCEDURE PRINTCR; 

PROCEDURE SWITCHBANK; 

PROCEDURE PRINTXADDR(ADDR:INTEGER); 
PROCEDURE PRINTHEXBYTE(ADDR:INTEGER); 
PROCEDURE PRINTCHARBYTE(ADDR:INTEGER); 
PROCEDURE BANK1P0KE(ADDR,VAL:INTEGER); 
PROCEDURE BANK2POKE(ADDR,VAL:INTEGER); 


PROCEDURE DOCHOICE; FORWARD; 


(* ACHTUNG : Die Variable IC ist in DISASSEM *) 
(* eine globale Variable, die den IC auto- *) 
(* matisch so anpasst, dass er auf die *) 
(* naechste zu disassemblierende Instruktion *) 
(* zeigt. *) 





PROCEDURE ABORT; 
BEGIN 

PAGE(OUTPUT); 
ESCOK:=FALSE; 
EXIT(DOCHOICE); 
END; 


FUNCTION GETCHAR(OKSET:SETOFCHAR):CHAR; 

VAR CH :CHAR; 

GOOD :BOOLEAN; 

BEGIN 

REPEAT 

READ(KEYBOARD,CH); 

IF EOLN(KEYBOARD) THEN CH:=CR; 

IF (CH=ESC) AND ESCOK THEN ABORT; 
GOOD:=CH IN OKSET; 

IF NOT GOOD THEN WRITE(BELL) 

ELSE IF CH IN [' \.CHR(125)] 

THEN WRITE(CH); 

UNTIL GOOD; 

GETCHAR:=CH; 

END; 


PROCEDURE GETSTRING(VAR S:STRING; 

OKSET:SETOFCHAR; MAXLEN:INTEGER); 

VAR S1 ;STRING[1]; 

STEMP :STRING; 

LEN :INTEGER; 

FIRSTCHAR :BOOLEAN; 

LASTCHAR :BOOLEAN; 

GETSET :SETOFCHAR; 

BEGIN 

S1: = ’ '; STEMP: = " ; 

REPEAT 

LEN:=LENGTH(STEMP); 

FIRSTCHAR:=(LEN=0); 

LASTCHAR:=(LEN=MAXLEN); 

IF FIRSTCHAR THEN GETSET:=OKSET 
ELSE IF LASTCHAR THEN GETSET:=[CR,BS] 
ELSE GETSET:=OKSET+[CR,BS]; 

S1[1]:=GETCHAR(GETSET); 

IF Sl[l] IN OKSET THEN 
STEMP:=CONCAT(STEMP,S1) 

ELSE IF S1[1]=BS THEN 
BEGIN 

WRITE(BS,' ',BS); 

DELETE(STEMP,LEN,1); 

END; 

UNTIL SI[1]=CR; 
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S:=STEMP; 

END; (*GETSTRING*) 

PROCEDURE PROMPTAT(L:INTEGER;S:STRING); 

BEGIN 

GOTOXY(0,L); 

WRITE(S,EOL); 

END; 

FUNCTION DEC(HEXSTRiSTRING):INTEGER; 

VAR DIGIT,NUM, 

STRPTR :INTEGER; 

XDIGITS ;PACKED ARRAY[0..15] OF CHAR; 

BEGIN 

NUM;=0; 

XDIGITS: = 'Ol23456789ABCDEF 1 ; 

FOR STRPTR:=1 TO LENGTH(HEXSTR) DO 
BEGIN 

DIGIT:=SCAN(16,=HEXSTR[STRPTR],XDIGITS); 
NUM:=NUM*16+DIGIT; 

END; 

DEC:=NUM; 

END; 


PROCEDURE GETADDR(STR:STRING); 
BEGIN 

WRITELN;WRITELN; 

WRITE(STR); 

GETSTRING(HEXADDR,HEXSET,4); 
ADDR:=DEC(HEXADDR); 

END; 


PROCEDURE CHANGE; 

BEGIN 

PR0MPTAT(0,’AENDERN: (<ESC> '); 

WRITE('= ENDE, <CR> = UEBERSPRINGEN)'); 
GETADDR(’STARTADR ==> '); 

PAGECOUTPUT); 

PRINTCR; (* AUSGABE BEGINNT LINKS *) 
REPEAT 

PROMPT AT(1,'AENDERN; (<ESC> '); 
WRITE(’= ENDE, <CR> = UEBERSPRINGEN'); 
GOTOXY(79 f O); 

IC:=ADDR; 

PRINTXADDR(ADDR); 

PRINTHEXBYTE(ADDR); 

G0T0XY(9,23); 

GETSTRING(HEXBYTE,HEXSET+[CR],2); 
GOTOXY(79,0); 

DELETE(HEXBYTE,LENGTH(HEXBYTE),1); 

IF LENGTH(HEXBYTE)<>0 THEN 
BEGIN 

VAL:=DEC(HEXBYTE); 


IF BANK=1 THEN BANK1POKE(ADDR,VAL) 
ELSE BANK2POKE(ADDR,VAL); 

END; 

PRINTHEXBYTE(ADDR); 

PRINTCR; 

ADDR;=ADDR+1; 

UNTIL FALSE; 

END; (*CHANGE*) 


PROCEDURE LINEOFBYTE(VAR ADDR:INTEGER); 

VAR J :INTEGER; 

BEGIN 

PRINTXADDR(ADDR); 

FOR J:=ADDR TO ADDR+NUMOFCOLS-1 DO 
PRINTHEXBYTE(J); 

FOR J:=ADDR TO ADDR+NUMOFCOLS-1 DO 
PRINTCHARBYTE(J); 

ADDR:=ADDR+NUMOFCOLS; (^ADRESSE ANPASSEN*) 
PRINTCR; 

END; 


PROCEDURE XNEXT; 

VAR I ;INTEGER; 

BEGIN 

PRINTCR; 

FOR I;=l TO 20 DO LINEOFBYTE(ADDR); 
END; 


PROCEDURE XLIST; 

BEGIN 

PR0MPTAT(0,'UNTERSUCHEN ; AUFLISTEN'); 
GETADDR('STARTADR => '); 

PAGE(OUTPUT); 

XNEXT; 

END; 


PROCEDURE XRANGE; 

BEGIN 

GETADDR('STARTADR ==> f ); 

TEMP:=ADDR; 

GETADDR('ENDADR ==> '); 

PAGE(OUTPUT); 

PRINTCR; 

ENDADDR:=ADDR; 

ADDR:=TEMP; 

WHILE ADDR<=ENDADDR DO LINEOFBYTE(ADDR); 
END; 
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PROCEDURE BANKCHANGE; 


BEGIN 

BANK:=(BANK MOD 2)+l; 
SWITCHBANK; 

END; 


PROCEDURE EXAMINE; 


VAR CH:CHAR; 


BEGIN 

REPEAT 

PR0MPTAT(0, f UNTERSUCHEN; A(UFLISTEN W(EITER '); 
WRITE('N(EUER BEREICH B(ANK['»BANK,'] E(NDE'); 
CH:=GETCHAR(DESET); 

PAGE(OUTPUT); 

CASE CH OF 
'A\’a':XLIST; 

'W’ f 'v’iXNEXT; 

'N','n’:XRANGE* 

' B',' b':BANKCHANGE; 

END; 

UNTIL CH IN ['E\'e']; 

END; (»EXAMINE*) 


PROCEDURE NEXT; 

VAR I :INTEGER; 

BEGIN 

FOR I;=l TO 20 DO DISASSEM(* IC *); 
.PRINTCR; 

END; 


PROCEDURE LIST; 

BEGIN 

PROMPTAT(0,’DISASM: AUFLISTEN'); 
GETADDR( ’STARTADR => ' ) ; 

PAGE(OUTPUT); 

IC:=ADDR; (»IC (INSTR COUNTER)*) 

NEXT; (»GLOBAL FUER DISASSEM*) 

END; • 


PROCEDURE RANGE; 

BEGIN 

PAGE(OUTPUT); 

PR0MPTAT(0,'DISASM: BEREICH'); 
GETADDR( 'STARTADR => '); 

IC:=ADDR; 

GETADDR('ENDADR ==> '); 

PAGE(OUTPUT); 

WHILE IC<=ADDR DO DISASSEM(* IC *); 
PRINTCR; 

END; 


PROCEDURE DISASM; 

VAR CH:CHAR; 

BEGIN 

REPEAT 

PROMPTAT(0,’DISASM: A(UFLISTEN W(EITER ’); 
WRITE('N(EUER BEREICH B(ANK['»BANK,'] E(NDE’); 
CH:=GETCHAR(DESET); 

PAGE(OUTPUT); 

CASE CH OF 
’AVa’iLIST; 

’W'/w'iNEXT; 

1 N', 1 n':RANGE; 

’B 1 , 1 b':BANKCHANGE; 

END; (*CASE*) 

UNTIL CH IN ['EVe']; 

END; 


PROCEDURE PRINT; 

BEGIN 

(*$I-*) 

UNITCLEAR(6); 

IF IORESULTOO THEN 
BEGIN 

PROMPTAT(3, f DRUCKER NICHT ANGESCHLOSSEN 1 ); 
EXIT(PRINT); 

END; 

(*$I+*) 

IF PSW='AUS f THEN 
BEGIN 

CSW.VECTOR A :=PRINTADDR; 

PSW:='EIN'; 

NUMOFCOLS:=16; 

END 

ELSE 

BEGIN 

CSW.VECTOR A :=COUT1; 

PSW:='AUS'; 

NUMOFCOLS:=8; 

END; 

END; (*PRINT*) 


FUNCTION FOUND(FIRST,SECOND,THIRD:BYTE; 

NOTHIRD:BOOLEAN):BOOLEAN; 

EXTERNAL; 

PROCEDURE MOVEBANK2; 

EXTERNAL; 
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( ♦♦♦*********5tC*************3jC****3je5jC5jC********** ) 

(* DURCHSUCHEN DES HAUPTSPEICHERS NACH EINER*) 
(* FOLGE VON 2 ODER 2 HEXADEZIMALEN ODER *) 
(* ASCII-ZEICHEN * *) 


PROCEDURE SEARCHMEM; 


VAR FIRST,SECOND,THIRD :BYTE; 
SFIRST,SSECOND,STHIRD :STRING; 
SLEN, 

F0R20R3,COLCOUNT :INTEGER; 

NOTHIRD, 


SEQNOTFOUND, 

DONE 

CH 

XADDR 


BOOLEAN; 

CHAR; 

STRING[4]; 


BEGIN 

NOTHIRD:=FALSE; 

THIRD:=0; 

STHIRD:= , 0*; 

F0R20R3:=3; 

REPEAT 

GOTOXY(O f O); 

WRITE(’>SUCHEN['»F0R20R3,*]: H(EX, B(UCHST., E(NDE*); 
CH:=GETCHAR([ , H , , , h , , , B\ , b\ , E\'e\'2*,*3 f ]); 

PAGE(OUTPUT); 

IF CH IN ['2',*3*] THEN 
CASE CH OF 
1 2':BEGIN 

NOTHIRD:=TRUE; 

F0R20R3:=2; 

END; 

'3':BEGIN 

NOTHIRD:=FALSE; 

F0R20R3:=3; 

END; 

END (*CASE*) 

ELSE 

IF NOT (CH IN [*E 1 , , e']) THEN 
BEGIN 

CASE CH OF 

•HVh'iBEGIN OKSET:=HEXSET; SLEN:=2; END; 

*B 1 f 1 b 1 :BEGIN OKSET:=CHRSET; SLEN:=1; END; 

END; (*CASE*) 

(♦SEQUENZ HOLEN*) 

WRITELN; 

WRITELN('NACH SEQUENZ SUCHEN'); 

WRITE( * 1. => '); 

GETSTRING(SFIRST,OKSET,SLEN);WRITELN; 

WRITE('2. => '); 

GETSTRING(SSECOND,OKSET,SLEN);WRITELN; 



IF NOTHIRD=FALSE THEN 
BEGIN 

WRITE(’3. => '); 

GETSTRING(STHIRD, OKSET,SLEN);WRITELN; 

END; 

(*IN INTEGER UMWANDELN*) 

IF CH IN ['H'.'h'] THEN 
BEGIN 

FIRST :=DEC(SFIRST); 

S ECON D:=DEC(SS ECOND); 

THIRD :=DEC(STHIRD); 

END 

ELSE 

BEGIN 

FIRST :=ORD(SFIRST[1]); 

SECOND:=ORD(SSECOND[1]); 

THIRD :=ORD(STHIRD[l]); 

END; 

PROMPTAT(12,'DURCHSUCHE SPEICHER...');WRITELN; 

WRITELN('ZWEITE BANK (DOOO-DFFF) IN GRAPHIKSEITE'); 
WRITE('KOPIERT (2000-2FFF)'); 

(* DIE EIGENTLICHE SUCHE ERFOLGT IN DER *) 

(* EXTERNEN PROZEDUR FOUND *) 

MOVEBANK2; 

SEQNOTFOUND:=TRUE; 

SEARCHADDR:=0; (* SUCHE BEI NULL BEGINNEN *) 

COLCOUNT :=0; 

DONE:=FALSE; 


G0T0XY(0,20); 

WRITE('SEQUENZ',SFIRST:4,SSEC0ND:4); 

IF NOT NOTHIRD THEN 
WRITE] Jl ( STHIRD: 4 ); 

GOTOXY(80,0); (*CURSOR VOM BILDSCHIRM NEHMEN*) 
PRINTCR; (»AUSGABE LINKS BEGINNEN*) 

REPEAT 

IF (FOUND(FIRST,SECOND,THIRD,NOTHIRD)) THEN 
BEGIN 

SEQNOTFOUND:=FALSE; 

PRINTXADDR(SEARCHADDR); 

SEARCHADDR:=SEARCHADDR+1; 

COLCOUNT:=(COLCOUNT+1) MOD NUMOFCOLS; 

IF (C0LC0UNT=0) THEN 

IF (PSW='EIN') THEN PRINTCR; 

END 

ELSE 

DONE:=TRUE; 

UNTIL DONE; 

IF SEQNOTFOUND THEN PROMPTAT(22,'NICHT GEFUNDEN') 
ELSE PRINTCR; 
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WRITE(BELL); 

END; 

UNTIL CH IN [’E'/e']; 
END; (»SEARCH») 


PROCEDURE DOCHOICE; 

BEGIN 

PAGE(OUTPUT); ESCOK:=TRUE; 
CASE CH OF 
'D',’d’:DISASM; 

'U','u':EXAMINE; 

’A','a':CHANGE; 

'S','s':SEARCHMEM; 
’B\'b':BANKCHANGE; 

'P','p':PRINT; 

'M', 'm' :MONITOR;- 
END; 

ESCOK:=FALSE; 

END; 


PROCEDURE INITIALIZE; 


BEGIN 

BELL:=CHR(7) 
EOL:=CHR(29) 
ESC:=CHR(27) 
BS:=CHR(8); 
CR:=CHR(13); 


(»CTL-G») 

(»CTL-]*) 

(»CTL-[») 

(»CTL-H») 

(*CTL-M*) 


ESCOK:=FALSE; 

BANK:=1; 

PSW:='AUS'; (»PRINTER SCHALTER*) 
NUM0FC0LS:=8; 

ADDR:=0; 

CSW.ADDR:=54; (»ZEICHENAUSGABESCHALTER*) 


DESET:=[ 'A'.'a'.'N'.'n'.'W'.'w', 
’B’.'b’.’E'.'e']; 


PMUSET:=[’D',’d',’U',’u',’B',’b' 
’S'.'s'.'A'.'a'.'P'.'p' 



CHRSET:=[' ’..CHR(127)]; 
HEXSET:=[ , 0 , .. , 9’]+[ , A'..'F']; 


INITDISASSEM; 

END; (»INIT») 

BEGIN (»HAUPTPROGRAMM*) 
INITIALIZE; (»ALLES») 



REPEAT 

PROMPTAT(0 f 'PMU: D(ISASM U(NTERS f ); 

WRITE( 1 A(ENDERN P(RINTER[',PSW,'] M(ONlTOR ’) 
WRITE( f S(UCHEN B(ANK[*»BANK,'] E(NDE'); 
CH:=GETCHAR(PMUSET); 

DOCHOICE; 

UNTIL CH IN [ 'E*, f e*]; 

END. 


EISTETS #2: PM0.PROC 
VON RON DEGROAT 4/81 


;MONITOR 

ROM 

ADRESSEN 

SETNORM 

.EQU 

0FE84 

5E/A INITIALISIERUNG 

INIT 

.EQU 

0FB2F 


SETVID 

.EQU 

0FE93 


SETKBD 

.EQU 

0FE89 


PRBYTE 

.EQU 

OFDDA 

;ZEICHENAUSGABE 

COUT 

.EQU 

OFDED 

; UNTERROUTINEN 

PRNTYX 

.EQU 

0F940 


PCADJ 

.EQU 

0F953 


PC 

.EQU 

0003A 

;PROGRAMMZAEHLER 

MON 

.EQU 

0FF65 

;MONITOR 

RETURN 

.EQU 

00000 

;PASCAL RET ADDR 

ADDR 

.EQU 

00002 

;UEBERGEBENER PARAMETER 

VAL 

.EQU 

00004 

;UEBERGEBENER PARAMETER 


;DATEN ODER ROUTINE LADEN (MAXIMAL 256 BYTES) 

.MACRO LOAD ;FORMAT: 

LDY #00 ;LADE SOURCE,DEST,LAEN 

$1 LDA %l f Y 
STA %2,Y 
INY 

CPY #%3 
BNE $1 
.ENDM 

;ADRESSE VOM STACK HOLEN 

.MACRO POP ;FORMAT: POP ADDR 

PU 

STA %1 

PU 

STA %1+1 
.ENDM 

;ADRESSE AUF STACK ABLEGEN 
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.MACRO PUSH ;FORMAT: PUSH ADDR 

LDA Zl+1 

PHA 

LDA %1 

PHA 

.ENDM 

.MACRO ROMSELECT 
STA 0C08A 
.ENDM 

.MACRO RAMSELECT 
JSR BANK 
.ENDM 


.PROC BANKIPOKE,2 


.DEF POKE 


POKE 


STA 0C089 

POP RETURN 
POP VAL 
POP ADDR 
LDA VAL 
LDY #00 
STA (ADDR),Y 
STA 0C088 

PUSH RETURN 
RTS 


;ERSTE 4K BANK 
;BESCHREIBBAR MACHEN 


POKE VAL IN ADDR 
RAM SCHREIBSCHUETZEN 
2. BANK ANWAEHLEN 


.PROC BANK2P0KE,2 
.REF POKE 

STA 0C081 ;ZWEITE 4K BANK BESCHREIBBAR MACHEN 

JMP POKE 

.PROC MONITOR 

LOAD USER,03F8,03 ;CTL-Y JUMP 

ROMSELECT 

JMP MON 

RET PU ;CTL-Y ADDR LOESCHEN 

PU 

STA 0C088 ;RAM BANK1 EINSCHALTEN 
RTS 

USER JMP RET 


.PROC PRINTCR 

ROMSELECT 

LDA #8D ;<RET> 

JSR COUT 

STA 0C088 

RTS 



.PROC PRINTXADDR,1 
POP RETURN 

PLA ;HOLE ADRESSE 

TAX 

PU 

TAY 

ROMSELECT 

JSR PRNTYX ;HEX ADDR AUSGEBEN 

LDA #0A0 ;EIN LEERZEICHEN AUSGEBEN 

JSR COUT 

STA 0C088 

PUSH RETURN 

RTS 


.PROC PRINTHEXBYTE,1 

.REF BANK ;WIRD VON RAMSELECT BENUTZT 

POP RETURN 
POP ADDR 
RAMSELECT 
LDY#00 

LDA (ADDR),Y ;HEX BYTE HOLEN 
ROMSELECT 

JSR PRBYTE ;HEX BYTE AUSGEBEN 

LDA #OAO ;LEERZEICHEN AUSGEBEN 

JSR COUT 

STA 0C088 

PUSH RETURN 

RTS 


.PROC PRINTCHARBYTE,1 

.REF BANK 

POP RETURN 
POP ADDR 
RAMSELECT 
LDY #00 

LDA (ADDR),Y;ZEICHENBYTE HOLEN 
ORA #80 ;HI BIT SETZEN 

CMF #0A0 ;CONTROLZEICHEN AUSGEBEN 

BCS NORMAL ;ZEICHEN ALS 1 .* 

LDA #OAE ; V 

NORMAL ROMSELECT 
JSR COUT 
STA 0C088 
PUSH RETURN 
RTS 


.PROC SWITCHBANK 
.DEF BANK 
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LDA BANK+1 

;0C088 IN 

EOR #08 

;0C080 AENDERN UND 

STA BANK+1 

;UMGEKEHRT 

RTS 


STA 0C088 


RTS 


.PROC DISASSEM 

.PUBLIC IC 

;BEFEHLSZAEHLER 

.REF INSTDSP 

, BANK 

LDA IC 

;ic 

STA PC 

;NACH PC UEBERTRAGEN 

LDA IC+1 


STA PC+1 


ROMSELECT 


JSR INSTDSP 

;EINEN BEFEHL DISASSEMBLIEREN 

JSR PCADJ 

;PC ANPASSEN 

STA PC 


STY PC+1 


STA IC 

;IC ANPASSEN 

STY IC+1 


STA 0C088 

;VOR RUECKSPRUNG AUF BANK1 

RTS 

;ZURUECKSCHALTEN 


.PROC INITDISASSEM 
.DEF INSTDSP 
.REF BANK 

JMP BEGIN ;KOPIERBEREICH-UEBERSPRINGEN 

HIER HAUPTTEIL DES ROM DISASSEMBLERS KOPIEREN, 
DAMIT ER FUER DIE FUNKTION UNTER PASCAL 
MODIFIZIERT VERDEN KANN 


INSDS1 

.BLOCK ODF ;KOPIE BEGINNT HIER 

BEGIN 

ROMSELECT 

LOAD 0F882,INSDS1,ODF ;KOPIEREN 

INSTDSP 

.EQU INSDS1+04E 

PATCH1 

.EQU INSDSl+OOA 

PATCH2 

.EQU INSTDSP 

PATCH3 

.EQU INSDS1+OBO 


;NOTWENDIGE AENDERUNGEN VORNEHMEN UND VIDEO INITIALISIEREN 

LOAD CHANGEI,PATCH1,03 
LOAD CHANGE2,PATCH2,09 
LOAD CHANGE3,PATCH3,04 
JSR SETNORM 
JSR INIT 
JSR SETVID 
JSR SETKBD 

RAMSELECT ;LANGUAGE CARD EINSCHALTEN 
RTS 
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CHANGEI JSR DIS1 


CHANGE2 JSR 
PHA 
JSR 
NOP 
NOP 


INSDS1 

DIS2 


CHANGE3 JSR DIS3 
NOP 


DIS1 


RAMSELECT 

LDA (PC,X) 

ROMSELECT 

TAY 

RTS 


UNGUAGE CARD EINSCHALTEN 
OPCODE BYTE HOLEN 
ROM EINSCHALTEN 


DIS2 RAMSELECT 

LDA(PC),Y 
ROMSELECT 
JMP PRBYTE 

DIS3 CMP #0E8 

RAMSELECT 
LDA (PC),Y 
ROMSELECT 
RTS 


DIE FOLGENDEN EXTERNEN PROZEDUREN UND 
FUNKTIONEN WERDEN VON SEARCHMEMORY 
VERWENDET 


FUNCTION FOUND(ADDR:INTEGER; FIRST, 
SECOND,THIRD:BYTE; 
NOTHIRDiBOOLEAN)jBOOLEAN; 

(BYTErO..255) 

VON RON DEGROAT 15-JUN-80 


.FUNC FOUND,4 

.MACRO PULL ;PARAMETER HOLEN UND RETTEN 

PU 

STA %1 

PU 

.ENDM 
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.MACRO FIND 
LDA @SRCHADDR,Y 
CMP %1 










BNE NOMATCH 



INY 

.ENDM 

;Y AUF NAECHSTES BYTE SETZEN 

THIRD 

.EQU 12 


SECOND 

.EQU 13 

;ZU SUCHENDE SEQUENZ 

FIRST 

.EQU. 15 


NOTHIRD 

.EQU 14 

;DRITTES BYTE VORHANDEN ? 

SRCHADDR 

.EQU 16 

;SUCHADRESSE 

ORIGIN 

.EQU 18 

;STARTADRESSE FUER SUCHE 


.PUBLIC 

SEARCHADDR 


POP RETURN ;PASCAL RUECKSPRUNGADRESSE 


PLA ;OFFSET UEBERSPRINGEN 

PLA 

PU 

PU 


PULL NOTHIRD ;PARAMETER HOLEN 
PULL THIRD ;UND WERTE SPEICHERN 
PULL SECOND 
PULL FIRST 


LDA #00 ;MSB DES FUNKTIONSERGEBNISSES AUF STACK 

PHA 

STA ORIGIN ;START BEI NULL 
STA ORIGIN+1 


LDA SEARCHADDR ;PUBLIC ADDR 

STA SRCHADDR ;ZERO PAGE ADRESSE 

LDA SEARCHADDR+1 
STA SRCHADDR+1 


LOOP 


LDY #00 
FIND FIRST 
FIND SECOND 
LDA NOTHIRD 
CMP #01 
BEQ MATCH 
FIND THIRD 


;Y JEDESMAL INITIALISIEREN 
;PRUEFEN OB UEBEREINSTIMMUNG 
;NUR WENN ERSTES BYTE STIMMT 
;DRITTES BYTE ZU VERGLEICHEN ? 

;WENN KEIN DRITTES BYTE DANN UEBEREINSTIMMUNG 
;SONST DRITTES BYTE PRUEFEN 


MATCH LDA #01 ;FOUND = TRUE SETZEN 

CLC ;GOTO END 

BCC END 


NOMATCH INC SRCHADDR ;LSB DER SUCHADRESSE ERHOEHEN 
BNE NOBUMP ;SPRUNG WENN KEIN UEBERTRAG 


INC SRCHADDR+1 ;MSB DER SUCHADRESSE ERHOEHEN 


NOBUMP 


LDA SRCHADDR+1 
CMP ORIGIN+1 
BNE NOTDONE 
LDA SRCHADDR 
CMP ORIGIN 
BEQ ABORT 


;WENN MSB DER SUCHADRESSE = 
;MSB DES URSPRUNGS, 

;DANN PRUEFE LSB 

;WENN = DANN ABBRUCH 



NOTDONE 


ABORT 

END 


LOOP 


LDA SRCHADDR+1 
CMP #OCO 
BNE LOOP 
LDA SRCHADDR 
CMP #30 
BCC LOOP 
LDA #0C1 ' 

STA SRCHADDR+1 

LDA #00 

STA SRCHADDR 


;SOFT SWITCHES UEBERSPRINGEN 
;$C030 BIS $C100 


CLC 

BCC LOOP ;NOCHMAL 

LDA #00 ;RESULTAT AUF FALSE SETZEN 

PHA ;LSB DES RESULTATS AUF STACK 

LDA SRCHADDR 

STA SEARCHADDR 

LDA SRCHADDR+1 

STA SEARCHADDR+1 

PUSH RETURN 

RTS ;ZURUECK INS PASCALPROGRAMM 


.PROC M0VEBANK2 


LDA 

#0D0 

;(0000) = DOOO 

STA 

01 


LDA 

#20 

;(0002) = 2000 

STA 

03 


LDA 

#00 


STA 

00 


STA 

02 


TAY 



TAX 



LDA 

0C083 

.•ZWEITE BANK ANSPRECHEN 

LDA 

(00),Y 

;DOOO-DFFF 

STA 

(02),Y 

;NACH 2000-2FFF VERSCHIEBEN 

INY 



BNE 

LOOP 


INC 

01 

;SEITENNUMMER DES STARTS 

INC 

03 

;SEITENNUMMER DES ZIELES 

INX 



CPX 

#10 

;16 SEITEN UEBERTRAGEN 

BNE 

LOOP 


LDA 

0C088 

;RAM SCHREIBSCHUETZEN 

RTS 




.END 
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William Janes 


RECOVER 


PROGRAM RECOVER; 


(* VON W. JANES, 28.12.1980 *) 

(* DIESES PROGRAMM VERWENDET DIE MASCHINENNAHE PROZEDUR "UNITREAD" *) 
(* ZUM ZUM LESEN VON DATEIEN, DEREN DIRECTORY DEFEKT IST UND WURDE *) 
(* HAUPTSAECHLICH DAZU ENTWICKELT, TEXTDATEIEN WIEDERHERZUSTELLEN. *) 
(* DIE SO REKONSTRUIERTEN FILES KOENNEN AUF DEN BILDSCHIRM, DEN *) 
(* DRUCKER ODER IN EIN DISKETTENFILE GESCHRIEBEN WERDEN, AUF DIE *) 
(« DATEIEN WIRD MIT HILFE EINER ANFANGSBLOCKNUMMER UND DER ZU LESEN-*) 
(* DEN BLOCKANZAHL ZUGEGRIFFEN. NICHT ANZEIGBARE STEUERZEICHEN *) 
(* KOENNEN ENTWEDER UNTERDRUECKT ODER MIT IHREN IN KÜMMERN *) 
(* GESETZTEN ASCII-WERTEN AUSGEGEBEN WERDEN. *) 


TYPE OUTMODE = (PRNTR, CONSL, DISC); 

INMODE = 4..5; 

BLOCK = PACKED ARRAY [0..511] OF CHAR; 
CHARSET = SET OF CHAR; 

VAR START,STOP: INTEGER; 

AGAIN : CHAR; 

FILTRATION: BOOLEAN; 

INDENTBYTE: BOOLEAN; 

OUTDEVICE : OUTMODE; 

INDEVICE : INMODE; 

OUTFILE : TEXT; 

PRINTSET : SET OF CHAR; 

FUNCTION PROMPT(S:STRING; OKSET:CHARSET):CHAR; 

VAR GOOD: BOOLEAN; 

CH: CHAR; 


BEGIN 
REPEAT 
WRITELN; 
WRITE(S); 
READ(CH); 
WRITELN; 



UNITCLEAR(l); 
GOOD:=CH IN OKSET; 
IF NOT GOOD THEN 
WRITE(CHR(7)); 
UNTIL GOOD; 

PROMPT:=CH; 

END; 


PROCEDURE WRITEBLOCK(BLKNUM:INTEGER; BLOCKARRAY:BLOCK); 

VAR I .-INTEGER; 

TEMP ,-CHAR; 

NOSKIP :BOOLEAN; 

BEGIN 

IF OUTDEVICE <> DISC 
THEN BEGIN 

WRITELN(OUTFILE,CHR(13)); 

WRITELN(OUTFILE,'BLOCKNUMMER ',BLKNUM); 
WRITELN(OUTFILE); 

END; 


FOR I:=0 TO 511 DO 
BEGIN 

TEMP:=BLOCKARRAY[I]; 

IF (TEMP IN PRINTSET) AND NOT INDENTBYTE 
THEN WRITE(OUTFILE,TEMP) 

ELSE BEGIN 
IF FILTRATION 

THEN INDENTBYTE:=(TEMP=CHR (16)) 

ELSE WRITE(OUTFILE,'['.ORD(TEMP),']') 

END 

END; (*I SCHLEIFE*) 

IF OUTDEVICE <> DISC 

THEN WRITELN(OUTFILE,CHR(13),'ENDE VON BLOCK NR. ',BLKNUM); 

END; (*WRITEBLOCK*) 

PROCEDURE GETPRNTOPTION(VAR RSLT:BOOLEAN); 

VAR CH: CHAR; 

BEGIN 

WRITELN; 

WRITELN('AUSGABEOPTIONEN:'); 

WRITELN(' A)LLE ZEICHEN AUSGEBEN (FALLS NOETIG.ORD-WERTE)'); 

WRITELNC H)ERAUSFILTERN DER NICHT DRUCKBAREN ZEICHEN'); 

CH:=PROMPT('IHRE WAHL ? ',[’A*,’H']); 

RSLT:=(CH='H'); 

END; (*GETPRINTOPTION*) 

PROCEDURE INITIALIZE(VAR PRNTSET:CHARSET; VAR INDEV:INMODE; 

VAR OUTDEV:OUTMODE; VAR FILTER:BOOLEAN); 

VAR SELECT1ON, DEVICE: CHAR; 

BEGIN 

DEVICE:=PROMPT('ZU LESENDE UNIT (4..5)? ',['4','5']); 

IF DEVICE='4' 
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THEN INDEV:=4 
ELSE INDEV:=5; 

SELECTION:=PROMPT('AUSGABE AUF P)RINTER B(ILDSCHIRM D)ISKETTE 
['P'.’B'.'D']); 

CASE SELECTION OF 
'P':BEGIN 

PRNTSET:=[CHR(32)..CHR(127),CHR(13)]; 
REWRITE(OUTFILE,'PRINTER:'); 

OUTDEV:=PRNTR; 

GETPRNTOPTION(FILTER)j 
END; 

'B':BEGIN 

PRNTSET:=[CHR(32)..CHR(127),CHR(13)]; 
REWRITE(OUTFILE,’CONSOLE:'); 

OUTDEV:=CONSL; 

GETPRNTOPTION(FILTER); 

END; 

’D’:BEGIN 

PRNTSET:=[CHR(32)..CHR(127),CHR(13),CHR(16)]; 

OUTDEV:=DISC; 

FILTER:=TRUE 
END 

END (»CASE») 

END; (»INITIALIZE») 


PROCEDURE PROCESSBLOCKS(FIRST,LAST:INTEGER); 

VAR BLOCKNUM:INTEGER; 

BUFFER :BLOCK; 

F :STRING; 

BEGIN 

IF OUTDEVICE = DISC 
THEN BEGIN 

WRITELN; 

WRITE('SPEICHERN ALS? '); 

READLN(F); 

F:=CONCAT(F,'.TEXT'); 

REWRITE(OUTFILE.F); 

END; 

INDENTBYTE:=FALSE; 

(* WIRD ZUM LOESCHEN VON [INDENT] NACH DEM [DLE] ZEICHEN BENUTZT *) 

FOR BLOCKNUM:=FIRST TO LAST DO 
BEGIN 

UNITREAD(INDEVICE.BUFFER,512,BLOCKNUM); 

WRITEBLOCK(BLOCKNUM,BUFFER); 

END; (»SCHLEIFE*) 

IF OUTDEVICE=DISC THEN CLOSE(OUTFILE.LOCK); 

END; (»PROCESSBLOCKS») 

PROCEDURE GETRANGE(VAR FIRST,UST:INTEGER); 

VAR MAX,NUM:INTEGER; 



BEGIN 
WRITELN; 

WRITECSTART BEI BLOCK? '); 

READLN(FIRST); 

MAX:=280-FIRST; 

WRITELN; 

WRITE(' BLOCKANZAHL? (1,MAX; 

READLN(NUM); 

LAST:=FIRST+NUM-1; 

END; (»GETRANGE*) 

BEGIN ( *HAUPrPROGRAMM*) 

INITIALIZE(PRINTSET,INDEVICE,OUTDEVICE,FILTRATION); 

REPEAT 

GETRANGE(START,STOP); 

PROCESS BLOCKS(START,STOP); 

AGAIN:=PROMPT('NOCH EINEN DISKBEREICH BEARBEITEN? '.['J'.'N']) 
UNTIL AGAIN = ’N'; 

END. 
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Pascal 1.1 Speicher¬ 
nutzung 


Die Informationen in der folgenden Tabelle sind in mehrere Abschnitte un¬ 
terteilt (z.B. Zero-Page-Variablen). Die Einrückung soll das Auffinden der 
einzelnen Informationen erleichtern. Indirekte Adressierung wird im folgen¬ 
den durch das @-Zeichen repräsentiert! 

Adresse(n) Bedeutung 


0000-00FF 

0050/1 

0052/3 

0054/5 

0056/7 

0058/9 

005A/B 

005C/D 

006E/0070 

0071-0073 

007E 

0080 

0096-00A2 

00BD/E 

00BF/C0 

00C1/2 

00C3/4 

00C5/6 

00D0/1 


Zero-Page mit Interpreter- und BlOS-Variablen 

BASE Basisprozedur 

MP Stackzeiger 

JTAB Sprungtabellenzeiger 

SEG Segmentzeiger 

IPC Interpreter-Programmzähler 

NP Neuer Zeiger 

KP Programm-Stack-Zeiger 

Indirekter Sprung, wird vom Interpreter benutzt (JMP 
@D0XX) 

Indirekter Sprung, der vom CSP-Befehl benutzt wird (JMP 
@D1XX) 

NOSPEC Kontrollwort von UNITREAD/WRITE 
NOCRLF Kontrollwort von UNITREAD/WRITE 
DLE Expansionstabelle, wird von UNITRAD/WRITE ver¬ 
wendet 

ZEROL u. ZEROH, zum Löschen des Speichers bei RESET 

JUMP1 U.JUMP2, Einsprungadressen beim Auftreten von 

Kontrollzeichen 

BXS1L und BXS1H 

BXS2L und BXS2H 

CKPTRL u. CKPTRH 

CHECKL u.CHECKH 
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00D2 

00D3 

00D4 

OOEO 

COE1 

OOE2/3. 

00E4/5 

00E6/7 

00E8/9 

OOEA/B 

OOEC/D 

OOEE/F ‘ 

OOFO/1 

OOF2/3 

00F4 

OOF5 

00F6 

00F7 

OOF8/9 

OIOO-OIFF 

0200-???? 

03B1-03FF 

0400-07FF 

0800-0BFF 

OCOO-???? 

0C40-0C7D 

0C7E-0CBB 

0CBC-0CF9 

OCFA-OD35 

0D36-0D71 

A988-AC99 

A994/5 

A996/7 

A998/9 

A99A/B 

A9A2/3 

A9A4/5 


TT1 

NT2 

TT3 

HSMODE wird von HI-RES-Routinen verwendet 
HCMODE wird von HI-RES-Routinen verwendet 
ACJVAFLD Zeiger auf ATTACH-Kopie des Original-BIOS- 
Sprungvektors 

RTPTR Zeiger auf Zeichen der Gerätelesetabelle 
WTPTR Zeiger auf Zeichen der Geräteschreibtabelle 
UDJVP Zeiger auf Sprungvektor für User Device 
DISKNUMP Zeiger auf Diskettennummer-Vektor 
JVBFOLD Zeiger auf BlOS-Sprungvektor vor Fold- 
Operation 

JVAFOLD Zeiger auf BlOS-Sprungvektor nach Fold- 
Operation 

BAS1L u. BAS1H Zeiger auf Textseite 1 
BAS2L u. BAS2H Zeiger auf Textseite 2 
CH Horizontalposition des Cursors 
CV Vertikalposition des Cursors 
TEMPI 
TEMP2 

SYSCOM (Zeiger auf SYSCOM) 

Berechnungsstack für Interpreter 
BUFFER BIOS Diskettenpuffer 
BIOS Tastaturpuffer 
APPLE Textseite 1 
APPLE Textseite 2 
Heap 

INPUT-Datei-Informationsblock 
OUTPUT-Datei-Informationsblock 
KEYBOARD-Datei-Informationsblock 
Datei-Informationsblock für SYSTEM.WRK.TEXT (falls 
vorhanden) 

Datei-Informationsblock für SYSTEM.WRK.CODE (falls 
vorhanden) 

Activation Record für Segment 0, Prozedur. 1 von 
SYSTEM.PASCAL 
Zeiger auf SYSCOM 

Zeiger auf Informationsblock der INPUT-Datei 
Zeiger auf Informationsblock der OUTPUT-Datei 
Zeiger auf Datei-Informationsblock von KEYBOARD 
Zeiger auf Informationsblock von SYSTEM.WRK.CODE 
Zeiger auf Informationsblock von SYSTEM.WRK.TEXT 


A9AC/D 

A9AE/F 

A9B0/1 

A9B2/3 

A9B4/5 

A9B6-A9BD 

A9BE-A9C5 

A9C6-A9CD 

A9CE-A9DD 

A9DE-A9ED 

A9EE-A9FD 

A9FE/F 

AA02/3 

AA04/5 

AA06/7 

AA08-AA0F 

AA10-AA17 

AA18/9 


AA1E-AA6F 

AA70-AA79 

AA7A-AA85 

AA86-AA8D 

AA8E-AB29 


AB2A-AB41 


“Student“-Flag aus MISCINFO 
“Slow Terminäl“-Flag aus MISCINFO 
Editor-Escape-Taste aus MISCINFO 
Flag für das Vorhandensein von SYSTEM.WRK.CODE 
Flag für das Vorhandensein von SYSTEM.WRK.TEXT 
Laufwerkname von SYSTEM.WRK.CODE (STRING[7]> 
Laufwerkname von SYSTEM.WRK.TEXT (STRING[7]) 
Laufwerkname von permanentem Workfile (String[7]) 
Dateiname der SYSTEM.WRK.CODE-Datei (STRING[15]) 
Dateiname der SYSTEM.WRK.TEXT-Datei (STRING[15]) 
Dateiname der permanenten Work-Datei (STRING[15]) 
Zeiger auf leeren Heap für Benutzerprogramme 
Zeiger auf KEYBOARD-Datei-Informationsblock 
Zeiger auf OUTPUT-Datei-Informationsblock 
Zeiger auf INPUT-Datei-Informationsblock 
Standard (:) Laufwerkname (STRING[7]> 

System (*) Laufwerkname (STRING [7]) 

Tagesdatum in folgender Form: 

PACKED RECORD 
MONAT: 0..12; 

TAG : 0..31; 

JAHR : 0..99; 

END; 

Befehlszeile des Command-Levels (STRING[80]) 

Tabelle für Integer-Zehnerpotenzen (ARRAY [0..4] OF IN¬ 
TEGER) 

String mit Nullzeichen für die Verzögerung von Vertikalbe¬ 
wegungen - aus MISCINFO (STRING [11]) 

Ziffern (SET OF “0“..“9“) 

Gerätetabelle 

ARRAY [0..12] OF RECORD 
GNAME: STRING [7] 

(* Gerätename *) 

CASE BLOCKIERT: BOOLEAN OF 
(* True, wenn Gerät blockiert *) 

TRUE: (LETZTBLOCK: INTEGER) 

(* Letzter Block, wenn Gerät blockiert *) 

END; 

Dateiname des SYSTEM.ASSEMBLER (STRING[23]) 
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AB42-AB59 

AB5A-AB71 

AB72-AB89 

AB8A-ABA1 

ABA6-ABC5 

ABC6-ABDD 

ABDE-AC2F 

AC3A/B 

AC3C/D 

AC3E/F 

AC44/5 

AC5A-AC61 

AC70-Ac7F 

AC9A-BD1B 

BD1E-BD5D 

BD5E-BD9D 

BD9E-BDDD 

BDDE-BEBB 

DEEE/F 

BDEO/1 

BDE2/3 

BDE4/5 

BDE6/7 

BDE8/9 

BDEA/B 

BDEC/D 

BDEE/F 

BDFO/1 

BDF2/3 

BDF4/5 

BDF6/7 

BDF8-BDFF 

BE1C-BE3D 

BE1C 

BE1D 

BE1E 

BE20 

BE21 

BE22 


Dateiname des SYSTEM.COMPILER (STRING[23J) 
Dateiname des SYSTEM.EDITOR (STRING[23J) 

Dateiname des SYSTEM.FILER (STRING[23]) 

Dateiname des SYSTEM.LINKER (STRING[23]> 
Konfigurationszeichen von MISCINFO (SET OF CHAR) 
Name der nächsten Datei von SETCHAIN aus CHAIN- 
STUFF (STRING[23]) 

Nachricht von SETCVAL aus CHAINSTUFF (STRING[80]) 
Flag, das gesetzt wird, wenn eine EXEC-Datei gelesen wird 
Flag, das beim Schreiben von EXEC-Dateien gesetzt ist 
System-Swapping-Flag 

Flag, das unmittelbar nach dem Booten gesetzt ist 
Laufwerkname von EXEC-Datei (STRING[7]) 

Dateiname von EXEC-File (STRING[15]) 

Code von Segment 0, Prozeduren 29 bis 57 von 
SYSTEM.PASCAL 

Tabelle für Interpreter-Segmentverwendungsanzahl 
Interpreter-Segmentadressentabelle 
Segmentprozedurverzeichnis für Interpreter 
SYSCOM 

Code für IORESULT 

Fehlercode für Exec Errors (Laufzeitfehler) 

Boot Unit (Kaltstart-Laufwerk) 

Debugger Status 

Zeiger auf zuletzt gelesenes Diskettenverzeichnis 
Zeiger auf EXEC ERROR Activation Record 
Kopie des Interpreter-BASE-Registers 
Kopie des Interpreter-MP-Registers 
Kopie des Interpreter-JTAB-Registers 
Kopie des Interpreter-SEG-Registers 

Zeiger auf unteres Ende des Programm-Stacks (höchste freie 
Speicheradresse) 

IPC-Kopie beim Auftreten von Laufzeitfehlern 
Breakpoint-Zeilennummer 

Breakpoint-Array für Diagnoseprogramm (Debugger) (AR- 
RAY [0..3] OF INTEGER) 

Konfigurationsparameter aus MISCINFO 

Lead-in-Zeichen für Bildschirm 

Cursor-Home-Zeichen 

Zeichen zum Löschen bis Bildschirmende 

Cursor nach rechts bewegen 

Cursor aufwärts bewegen 

Backspace-Zeichen (Linkspfeil) 
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BE23 

BE24 

BE25 

BE28/9 

BE2A/B 

BE2C 

BE2D 

BE2E 

BE2F 

BE30 

BE31 

BE32 

BE33 

BE34 

BE35 

BE36 

BE37 

BE38 

BE3A 

BE3E-BEFD 


BFOO-BFFF 

BFOA-BFOD 

BFOE 

BFOF 

BF11 

BF12 

BF13/4 

BF15 

BF 16/7 
BF18 
BF19 
BF1A/B 

BF1C 


BF1D/E 

BF1F/20 

BF21 

BF22 


Verzögerung für Vertikalbewegungen 
Zeilenlöschzeichen 
Bildschirmlöschzeichen 
Bildschirmhöhe (Zeilenanzahl) 

Bildschirmbreite (Spaltenzahl) 

Taste für Cursorbewegung nach oben 
Taste für Cursorbewegung nach unten 
Taste für Cursorbewegung nach links 
Taste für Cursorbewegung nach rechts 
Taste für Dateiabschluß 

Flush-Buffer-Zeichen (Sperrung der Tastatureingabe) 
Break-Taste 

Stop-Taste (Eingabestop) 

Taste zum Löschen eines Zeichens 

Nicht ausgebbares Zeichen 

Taste zum Löschen einer Zeile 

Editor-Escape-Taste 

Lead-in-Zeichen für Tastatur 

Backspace (Cursor ein Zeichen nach links) 

Segmenttabelle (ARRAY [0..31] OF RECORD UNITNUM : 
INTEGER; BLOCKNUM : INTEGER; CODELENG : IN¬ 
TEGER END) 

Variablen für Interpreter und BIOS 
CONCKVECTOR (Zeiger auf Tastatur-Prüfungsroutine) 
SCRMODE (Wenn Bit 2 gesetzt -» Externes Terminal) 
LFFLAG (Bit 7 gelöscht -» Linefeeds auf Drucker schicken) 
NLEFT (wird für horizontalen Bildschirmscroll verwendet) 
ESCNT (Zähler für ESCAPE-Sequenzen) 

RANDL & RANDH (Startwerte für Zufallsgenerator) 
CONFLGS (Autofollow Bit = 0, Flush Bit = 6, Stop Bit = 
7) 

BREAK (Zeiger auf User-Break-Routine) 

RPTR (Zeiger auf Terminal-Leseroutine) 

WPTR (Zeiger auf Terminal-Schreibpuffer) 

RETL & RETH (Interpreter-Rücksprungadresse für BIOS- 
Aufrufe) 

SPCHAR (kontrolliert die Prüfung von Steuerzeichen) Bit 0 
gesetzt -» keine Abfrage auf Ctrl A,Z,K,W, u. E; Bit 1 gesetzt 
-» keine Abfrage auf Ctrl-S und F 
IBREAK (Zeiger auf User-Break-Routine) 

ISYSCOM (Zeiger auf SYSCOM) 

VERSION (02 = APPLE 1.1, 00 = APPLE 1.0) 

FLAVOR (01 = reguläres System) 
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BF27-BF2E 

BF2F/30 

BF56/BF7F 

BFC0/BF7F 

COOO-CFFF 

DOOO-DFFF 

D028 

D02C 

D683 

D69E 

D772 

D898 

D8C6 

D8EF 

D907 

D918 

D91C 

D923 

D930 

D950 

D97B 

D98A 

D9A4' 

D9B2 

D9C3 

D9E5 

D9F8 

DA07 

DA15 

DCAO 

DCBO 

DCC5 

DCE4 

DDF5-DD28 

DE29-DFF9 

D000-F22D 

DOOO-DOFF 

D100-D151 

D253 

D25F 

D267 

D296 

D29D 

SLTTYPS (Slot-Typentabelle) 

XITLOC Zeiger auf XIT-Befehl 

Wird vom FORTRAN-Kopierschutz verwendet 

Für Fremdgeräte verfügbar 

E/A-Adressen 

BlOS-Code 

Disketten-Schreibroutine 

Disketten-Leseroutine 

Disketten-Initialisierungsroutine 

Kaltstart-Initialisierungsroutine 

Tastaturabfrage 

Terminal-Initialisierungsroutine 

T astatur-Leser outine 

Drucker-Initialisierungsroutine 

Initialisierungsroutine für Firmware Card 
Grafik-Initialisierungsroutine 

Initialisierungsroutine für Fernanschluß 
Initialisierungsroutine für Communications Card 
Initialisierungsroutine für serielle Schnittstelle 
Bildschirm-Schreibroutine 

Schreibroutine für Firmware Card 

Schreibroutine für Fernanschluß 
Druckerinterface-Schreibroutine 

Schreibroutine für Communications Card 

Schreibroutine für Drucker 

Leseroutine für Fernanschluß 

Leseroutine für Communications Card 

Leseroutine für Firmware Card 

Leseroutine für serielle Schnittstelle 

Routinen für Fernanschluß- und Druckerstatus 
Bildschirm-Statusroutine 

Diskettenstatusroutine 

IDSEARCH-Routine 

Indextabelle (erster Buchstabe) für IDSEARCH 
Identifikator-Tabelle für IDSEARCH 

Interpreter Code 

Häuptsprungtabelle für Interpreter 

Sprungtabelle für den Aufruf von Standardprozeduren (CSP) 
Interpreter-Hauptprogramm 

FJP (FALSE-Sprung) 

UJP (Unbedingter Sprung) 

LDCN (Lade Konstante NIL) 

LDCI (Lade Ein-Wort-Konstante) 
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D2A9 

SLDL1. .SLDL16 (Ein-Wort-Kurzladebefehl) 

D2B6 

LDL (Lade lokales Wort) 

D2D4 

LLA (Lade lokale Adresse) 

D2FA 

STL (Speichere lokales Wort) 

D318 

SLD01..SLD016 (Kurzladebefehl für lokales Wort) 

D325 

LDO (Lade globales Wort) 

D343 

LAO (Lade globale Adresse) 

D369 

SRO (Speichere globales Wort) 

D387 

LOD (Lade Hilfswort) 

D3AD 

LDA (Lade Hilfsadresse) 

D3DB 

STR (Speichere Hilfswort) 

D401 

LDE (Lade erweitertes Wort) 

D426 

STE (Speichere erweitertes Wort) 

D44B 

LAE (Lade erweiterte Adresse) 

D467 

SIND1..SIND7 (Ein-Byte-Index; lade Wort) 

D46A 

SINDO (Lade Wort indirekt) 

D47B 

STO (Speichere Wort indirekt) 

D495 

LDC (Lade aus mehreren Worten bestehende Konstante) 

D4C8 

LDM (Lade mehrere Worte) 

D4F6 

STM (Speichere mehrere Worte) 

D523 

LDB (Lade Byte) 

D53D 

STB (Speichere Byte) 

D557 

MOV (Verschiebe Worte) 

D56B 

LAND (Logisches UND) 

D57E 

LOR (Logisches ODER) 

D591 

LNOT (Logisches NICHT) 

D59E 

XJP (Case-Sprung) 

D62F 

NEW (CSP 1) 

D66B 

MARK (CSP 32) 

D682 

RELEASE (CSP 33) 

D6A0 

XIT (Betriebssystem verlassen) 

D6BB 

ABI (Absolutwert einer Integerzahl) 

D6D9 

ADI (Addiere Integer) 

D6F1 

NGl (Negiere Integer) 

D703 

SBI (Subtrahiere Integer) 

D742 

MPI (Multipliziere Integer) 

D789 

SQI (Integerquadrat) 

D839 

DVI (Dividiere Integer) 

D866 

MODI (Modulo-Division von Integerzahlen) 

D87E 

CHK (Überprüfe Untermengengrenze) 

D8CD 

LPA (Lade gepacktes Array) 

D8E5 

LSA (Lade konstante Stringadresse) 

D907 

SAS (Stringzuweisung) 
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D948 

IXS (Indiziere Stringarray) 

D96B 

IND (Statischer Index; lade Wort) 

D987 

INC (Inkrementiere Feldzeiger) 

D99A 

IXA (Indiziere Array) 

D9D9 

IXP (Indiziere gepacktes Array) 

DA1C 

LDP (Lade gepacktes Feld) 

DA72 

STP (Speichere in ein gepacktes Feld) 

DB20 

INT (Schnittmenge) 

DB57 

DIF (Mengendifferenz) 

DB79 

UNI (Vereinigungsmenge) 

DBE5 

ADJ (Mengenanpassung) 

DC55 

INN (Element auf Enthaltensein in Menge prüfen) 

DCBA 

SGS (Erzeuge Ein-Element-Menge) 

DD92-DDD3 

Maskentabelle für Operationen auf gepackten Feldern 

DDD4 

NEQ (Ungleich) 

DDD8 

GRT (Größer als) 

DDDC 

LES (Kleiner als) 

DDEO 

GEQ (Größer oder gleich) 

DDE4 

LEQ (Kleiner oder gleich) 

DDE8 

EQU (Gleich) 

DF2B 

LESI (Integer kleiner als) 

DF2F 

GRTI (Integer größer als) 

DF33 

LEQI (Integer kleiner oder gleich) 

DF37 

GEQI (Integer größer oder gleich) 

DF3B 

NEQI (Integer ungleich) 

DF65 

EQUI (Integer gleich) 

E253 

CIP (Aufruf von Hilfsprozedur) 

E2A1 

CLP (Lokaler Prozeduraufruf) 

E2BD 

CGP (Globaler Prozeduraufruf) 

E2D4 

CXP (Aufruf externer Prozedur) 

E2F9 

CBP (Aufruf einer Basisprozedur) 

E32A 

RBP (Rücksprung von Basisprozedur) 

E33F 

RNP (Rücksprung von Nicht-Basispfozedur) 

E417 

Segment-Leseroutine 

E61C 

Lade residentes Segment (CSP 21) 

E626 

Verlasse residentes Segment (CSP 22) 

E630 

CSP (Aufruf einer Standardprozedur) 

E63A 

IDSEARCH (CSP 7) 

E640 

TREESEARCH (CSP 8) 

E6B2 

FILLCHAR (CSP 10) 

E6F7 

SCAN (CSP 11) 

E784 

EXIT (CSP 4) 

E82B 

BPT (Breakpoint) 
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E833 

HALT (CSP 39) 

E841 

TIME (CSP 9) 

E8A0 

MOVELEFT (CSP 2) u. MOVERIGHT (CSP 3) 

E940 

MEMAVAIL (CSP 40) 

EA2C 

ADR (Addiere Real-Zahlen) 

EB09 

SBR (Subtrahiere Real-Zahlen) 

EB5A 

DVR (Dividiere Real-Zahlen) 

EC55 

MPR (Multipliziere Real-Zahlen) 

EC7D 

SQR (Quadriere Real-Zahl) 

ECB2 

ABR (Absolutwert einer Real-Zahl) 

ECCO 

NGR (Negiere Real-Zahl) 

ED3F 

FLO (Übertrage nächsten Wert auf Stackanfang) 

ED62 

FLT (Hole nächsten Wert vom Stackanfang) 

EDBB 

ROUND (CSP 24) 

EDDO 

TRUNC (CSP 23) 

EDE5 

PWROFTEN (CSP 36) 

EE0E-EEA9 

Zehnerpotenzen-T abeile 

EEAD-EEBC 

Sprungtabelle zur Zeichenübertragung auf externe Geräte 

EEBD-EECC 

Sprungtabelle zum Lesen von Zeichen von externen Geräten 

EECD 

Prüfung, ob Gerät zulässig 

EEF9 

IORESULT (CSP 34) 

EF04 

IOCHECK (CSP 0) 

EFOF 

UNITBUSY (CSP 35) 

EF1D 

UNITWAIT (CSP 37) 

EF27 

UNITSTATUS (CSP 12) 

EFA5 

UNITCLEAR (CSP 38) 

F069 

UNITREAD (CSP 5) 

F06E 

UNITWRITE (CSP 6) 

F22E-FE7B 

Codesegment Nr.O, Prozeduren 1-28 von SYSTEM.PASCAL 

FE80-FEAF 

Sprungvektor für Benutzergerät 

FEB0-FEC7 

Disknummernvektor 

FF00-FF41 

BlOS-Sprungvektor vor Fold-Operation 

FF5C-FF9D 

BlOS-Sprungvektor nach Fold-Operation 

FF5C-FF5E 

Zeiger auf Tastatur-Leseroutine 

FF5F-FF61 

Zeiger auf Konsolen-Schreibroutine 

FF62-FF64 

Zeiger auf Terminal-Initialisierungsroutine 

FF65-FF67 

Zeiger auf Drucker-Schreibroutine 

FF68-FF6A 

Zeiger auf Drucker-Initialisierungsroutine 

FF6B-FF6D 

Zeiger auf Disketten-Schreibroutine 

FF6E-FF70 

Zeiger auf Disketten-Leseroutine 

FF71-FF73 

Zeiger auf Disketten-Initialisierungsroutine 

FF74-FF76 

Zeiger auf Fernanschluß-Leseroutine 

FF77-FF79 

Zeiger auf Fernanschluß-Schreibroutine 
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FF7A-FF7C 

FF7D-FF7F 

FF80-FF82 

FF83-FF85 

FF86-FF88 

FF89-FF8B 

FF8C-FF8E 

FF8F-FF91 

FF92-FF94 

FF95-FF97 

FF98-FF9A 

FF9B-FF9D 

FFF6/7 

FFF8-FFFF 

FFF8/9 

FFFA/B 

FFFC/D 

FFFE/F 


Zeiger auf Femanschluß-Initialisierungsroutine 
Zeiger auf Grafik-Schreibroutine 
Zeiger auf Grafik-Initialisierungsroutine 
Zeiger auf Drucker-Leseroutine 
Zeiger auf Konsolen-Statusroutine 
Zeiger auf Drucker-Statusroutine 
Zeiger auf Disketten-Statusroutine 
Zeiger auf Fernanschluß-Statusroutine 
Zeiger auf Tastatur-Abfrageroutine 

Zeiger auf eine Routine zum Ansprung eines Treiberpro 

gramms über eine Sprungtabelle für Benutzergeräte 

Zeiger auf eine Routine zum Ansprung eines Treiberpro 

gramms über den Diskettennummernvektor 

Zeiger auf auf IDSEARCH 

Versionswort (0 = APPLE 1.1,1 = APPLE 1.0) 

Vektoren 

Startvektor 

Nicht maskierbarer Interrupt-Vektor 
RESET-Vektor 

Interrupt Request und BRK-Vektor 
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Mike Rosing/Keith McLauren 


Pascal Intern 


Einführung 


Das UCSD-Pascal-System, wie es von der Firma APPLE Computer Inc. für 
den APPLE verwendet und modifiziert wurde, bietet dem Benutzer sehr 
komfortable Möglichkeiten zur Programmierung von 6502-Mikro- 
computern. Leider ist die gemeinsame Verwendung von Maschinensprache 
und Pascal auf dem APPLE II nicht so bequem wie die gleichzeitige Nut¬ 
zung von BASIC und Maschinensprache. 

Die folgenden Fakten wurden nach der Methode “Versuch und Irrtum“ 
gefunden. Wir hoffen daher, daß die Computer-Freaks, die ihren Computer 
so genau wie möglich kennen lernen wollen, eventuelle Fehler in diesem Arti¬ 
kel finden und berichtigen werden. 

Für jemanden, der in seiner Freizeit den Versuch unternimmt, sämtliche 
Funktionen des Pascal-Betriebssystems in seiner ganzen Komplexität auszu¬ 
forschen, wird daran sicherlich verzweifeln. Die folgenden Informationen 
sind daher hauptsächlich für die Assembler-Programmierer gedacht, die ihr 
Pascal-Betriebssystem besser unter Kontrolle haben wollen. 

In Teil 1 wird der Pascal-Bootvorgang im einzelnen erklärt. Er ist durch¬ 
aus nicht trivial. Allein durch das Verfolgen des Bootvorganges kann man ei¬ 
ne Menge über den APPLE II lernen. 

Teil 2 enthält eine detaillierte Beschreibung, wie die Pascal-E/A- 
Routinen zu verwenden sind. 

In Teil 3 wird das Pascal-Disketteninhaltsverzeichnis (Directory) erklärt. 
Diese Beschreibung ist insbesondere im Zusammenhang mit Teil zwei nütz¬ 
lich, wenn man Programme speichern will. 

Teil 4 erklärt einfach, wie der 6502-Maschinencode zur Interpretation 
von P-Code-Instruktionen verwendet wird. In den darauf folgenden Tabel¬ 
len werden die Einsprungadressen für die P-Code-Instruktionen aufgelistet. 

In Teil 5 wird beschrieben, wie die Speichernutzung unter Pascal-erfolgt. 
Dabei wird auf Abweichungen der Pascal-Handbücher und der tatsächlichen 
Implementierung hingewiesen. 

Anhang 1 enthält die Adressen der P-Maschinen-Register. Zum Ver- 
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ständnis dieser Register benötigt man die Pascal-Handbücher, die mit dem 
Betriebssystem verkauft werden. 

Wer sich ernsthaft für APPLE Pascal interessiert, sollte sich BIOS besor¬ 
gen, das BASIC Input Output System , das von APPLE veröffentlicht wur¬ 
de. Die neueste Version heißt SYSTEM. ATT ACH und kann bei Internatio¬ 
nal APPLE Core , 910-A George St., Santa Clara, CA 95050 für $7.50 er¬ 
worben werden. 

Innerhalb dieses Artikels wird Version 1.1 als die “neue Version“ und' 
das OriginaLAPPLE-Pascal als “alte Version“ bezeichnet. 


Booten 

Der Bootvorgang des APPLE-Pascal erfolgt in vier Stufen. Das hängt damit 
zusammen, daß ein Teil des Bootens durch Pascal-Routinen erfolgt (vgl. 
auch APPLE Orchard , 1980: APPLE DOS Booting Process von Ted 
Burns). Die erste Stufe erfolgt durch das ROM; sie ist damit offensichtlich 
die gleiche wie bei BASIC-Disketten. In der zweiten Stufe wird 
SYSTEM.PASCAL in die 16k-Language Card geladen. In der dritten Stufe 
wird das BIOS geladen, und die P-Code-Zeiger werden initialisiert. Dabei 
wird der Interpreter aktiviert und die vierte Bootstufe in Pascal-P-Code aus¬ 
geführt. 

Disassembliert man die Blöcke 0 und 1, so findet man folgende Anwei¬ 
sung: 


08A9 6C F8 FF JMP §FFF8 

Mit 08A9 wird die zugehörige Speicherzelle (hexadezimal) bezeichnet, 6C F8 
FF ist der Maschinencode und JMP §FFF8 die entsprechende, von Men¬ 
schen lesbare Assembleranweisung. Die Syntax wird in den Pascal- 
Handbüchern in dem Kapitel Assembler beschrieben. 

Mit dieser Sprunganweisung beginnt die dritte Stufe des Bootvorganges. 
Die angesprungene Adresse ist FEE9 (neue Version) bzw. FF65 (alte Ver¬ 
sion). An dieser Stelle wird das BIOS geladen und das Pascal-Betriebssystem 
in die Language Card kopiert. 

Die dritte Bootstufe, mit der die vierte Stufe geladen wird, ist in Maschi¬ 
nensprache geschrieben. Die vierte Stufe, die aus P-Code besteht, über¬ 
schreibt Teile des von Stufe 3 benutzten Speicherbereiches. In der alten 
Pascal-Version blieb die dritte Stufe im Hauptspeicher, so daß ein Warm- 
Restart möglich war; die neue Version kann dagegen nur Kaltstarts ausfüh¬ 
ren, da die dritte Bootstufe wichtige Zeiger initialisiert. 

Die vierte Stufe ist in Pascal geschrieben und hat in der 
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SYSTEM.PASCAL-Datei keinen eigenen Namen. Sie ist das Segment Nr. 15 
der SYSTEM. PASCAL-Datei. 

Hier nun eine detaillierte Beschreibung des Bootprozesses. Sie kann mög¬ 
licherweise Fehler enthalten - aber das müßten Sie dann selbst überprüfen. 

1) Das ROM-Programm springt zu Adresse C600 im ROM und liest Spur 0, 
Sektor 0 bei $800 beginnend ein. 

2) Sprung nach $801 und Nachladen des Rests von Bootstufe Nr. 2. 

3) Prüfung, ob SYSTEM.APPLE in Block zwei (Start des Directories) zu 
finden ist; falls nicht, wird die Meldung NO FILE SYSTEM APPLE auf 
dem Schirm ausgegeben und folgende Anweisung ausgeführt, die eine 
hübsche kleine Endlosschleife darstellt: 

0869 F0 FE BEQ 869 

4) Wird SYSTEM.APPLE im Directory gefunden, so wird ein Write- 
Enable für das RAM ausgeführt. Das BIOS wird in die zweite 4k-Bank 
und E000 bis FFFF geladen. Dann wird die zweite 4k-Bank aktiviert und 
der P-Code-Interpreter geladen (wegen der Bank-Umschaltung vgl. das 
Language-Card-Handbuch). 

5) Für die Language Card wird ein Read-Write-Enable ausgeführt, die 
zweite 4k-Bank angeschaltet und die BIOS-Reset-Adresse D69E (neu) 
bzw. D5DD (alt) angesprungen. 

6) Die Speicheradressen 0 bis BFFF werden gelöscht. 

7) Alle Slots werden auf ROMs überprüft. Das Ergebnis dieses Tests wird 
bei der neuen Version in Adresse BF27, bei der alten Version bei BFF8 
abgelegt. Die Ergebniscodes lauten: 

0 kein ROM 

1 nicht identifizierbares ROM 

2 Disketten-Karte 

3 Communications Card 

4 serielle Schnittstelle 

5 Drucker 

6 Smart-Term-80-Zeichen-Karte (nur neue Version) 

Die Adresse plus Slotnummer ergibt den zugehörigen Code. 

Beispiel: 

BF2D = 02 neue Version 
BFFE = 02 alte Version 
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8) Der Bildschirm wird gelöscht und der Cursor auf den Bildschirm gesetzt; 
ggf. vorhandene externe Geräte und die Disk-Laufwerke werden initiali¬ 
siert. In der neuen Version werden noch zusätzliche, kleinere Operatio¬ 
nen ausgeführt. 

9) Sprung nach F275 (neu) bzw. EF3F (alt). Bei der neuen Version wird der 
Bereich F275 bis F675 nach 6800 bis 6C00 verschoben. Dieser Teil wird 
dadurch überschrieben. 

10) Löschen des Stacks. Bei der neuen Version wird der Reset-Vektor auf 
D6A0 gesetzt. SYSCOM wird auf BDDE gesetzt und der Bereich BDDE 
bis BEFE (neue Version) bzw. BDDE bis BEDE (alte Version) gelöscht. 
Prüft überflüssigerweise, ob Unit #4 (Boot-Laufwerk) angeschlossen 
ist. 

11) Einlesen des Directories ab Adresse $6000. Danach wird nach 
SYSTEM. PASC AL gesucht (bis zu 78 mal). Wird dieser Systemteil nicht 
gefunden, so wird die Konsole initialisiert und folgendes ausgegeben: 

alte Version: nichts 

neue Version: Insert boot disk with SYSTEM. 

PASCAL on it, then press RESET 

Die neue Version ändert die RESET-Vektoren. Danach führen beide 
Versionen folgendes aus: 

D0FE BNE 696E (neu) 

D0FE BNE EF94 (alt) 

und warten sehr geduldig auf RESET. 

Nach dem RESET wird ein Sprung an die Spitze des BIOS ausgeführt 
(Schritt 5) und die ganze Sache wird wiederholt. 


12) Wird SYSTEM.PASCAL im Directory gefunden, so wird der erste 
Block (Block 0) ab Adresse $6000 eingelesen. 

13) Eine un benannte Datei mit einer Länge von $1082 Bytes wird in die 
Adressen AC9A bis BD1B eingelesen (neue Version). Für die alte Ver¬ 
sion gilt: Länge: $1258, Adressen ABC3 bis BD1B. Es handelt sich dabei 
um Segment Nr.F (15). 

14) Segment Nr. 0 von SYSTEM.PASCAL wird in die Adressen F22E bis 
FE7C kopiert (alte Version: F104 bis FEFC). 

15) Der erste Activation Record für PASCALSY wird erzeugt (Segment Nr. 
0) und der IPC auf F22E’(neu) bzw. F104 (alt) gesetzt. 

16) P-Code-Sprungbefehle werden in 6E bis 73 eingelesen. 

17) Aufruf des P-Cöde Decoders bei D253 (neu) bzw. D243 (alt). 
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18) Vierte Bootstufe ist PASCALSY. Von hier an werden P-Code- 
Instruktionen ausgeführt. 


Die Benutzung von Disketten-E/A 

Vor einem Schreib- oder Lesezugriff auf eine Diskette müssen bei der alten 
Version acht Elemente auf den Stack geschoben (push) werden. Die neue 
Version erfordert hierfür zehn Elemente. 

Grundsätzlich gibt es zwei verschiedene Möglichkeiten für den Zugriff 
auf die Disketten-E/A-Routinen. Die erste verwendet die von APPLE in 
BIOS vorgeschlagenen Sprunganweisungen. Diese Methode funktioniert so¬ 
wohl mit der alten als auch mit der neuen Pascal-Version, sie erfordert ledig¬ 
lich ein paar zusätzliche Push-Operationen auf dem Stack. Die zweite Zu¬ 
griffsmethode besteht darin, die zweite 4k-Bank des BIOS zu aktivieren und 
die Diskettenroutinen direkt anzusprechen. 

Dabei müssen folgende Parameter auf dem Stack abgelegt werden: Unit¬ 
nummer, Blocknummer, Pufferbereich, Anzahl der zu lesenden oder zu 
schreibenden Sektoren oder Bytes und schließlich der Stack Marker. Die alte 
Version benutzt nur einen Stack Marker, die neue Version dagegen drei. Die 
Reihenfolge der Parameter auf dem Stack ist: 

1) Stack Marker (einer bei der alten, drei bei der neuen Version) 

2) Unitnummer 

3) Pufferbereich 

a) Hi-Byte 

b) Lo-Byte 

4) Anzahl der Bytes 

a) Hi-Byte 

b) Lo-Byte 

5) Blocknummer auf der Diskette 

a) Hi-Byte 

b) Lo-Byte 
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Hier ein Beispiel für das Speichern eines FOTO-Files auf der Diskette 


.PROC SAVEFOTO 
JMP START 

;Fotofl ist der Anfang von HI RES Seite 1 
;Lngth ist die Laenge in Bytes der zu 
speichernden Datei 
;Unit zeigt auf #4 (Laufwerk 1) 

;Blknm zeigt auf Block 6, es werden 
;mindestens 8 Blocks benoetigt, um 
;8 K Arbeitsspeicher aufzunehmen 


FOTOFL 

.WORD 

02000 

LNGTH 

.WORD 

01FFF 

UNIT 

.BYTE 

00 

BLKNM 

.WORD 

0006 


START LDA 

#00 

;Stack Marker 

PHA 


;fuer 

PHA 


;neue Version 

PHA 


i 

LDA 

UNIT 

;Laufwerk, auf das 

PHA 


geschrieben wird 

LDA 

FOTOFLfl 

;High Byte 

PHA 


;der Pufferadresse 

LDA 

FOTOFL 

;zuerst 

PHA 


9 

LDA 

LNGTH+1 

;Ebenso bei 

PHA 


jPuffergroesse 

LDA 

LNGTH 

; 

PHA 



LDA 

BLKNM+1 

;Auf Diskette 

PHA 


;an sicherem 

LDA 

BLKNM 

;Platz ablegen 

PHA 


» 

JSR 

OFFOF 

;E/A-Aufruf 

RTS 
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Alternativ dazu kann man diese Parameter auf dem Stack ablegen und fol¬ 
gende Befehle ausführen: 

LDA 0C083 ;BIOS einschalten 

JSR 0D028 ;neue Version 

LDA 0C08B ;Zurückschalten auf P-Code 

Bei der alten Version muß hier D038 eingesetzt werden. 

Für das Lesen von Disketten werden die gleichen Parameter auf dem 
Stack abgelegt. Die JSRs müssen leicht geändert werden. Denken Sie daran, 
daß das Directory unverändert bleibt, wenn Sie diese Operation ausführen. 
Seien Sie daher nicht überrascht, wenn das Pascal so gespeicherte Daten wie¬ 
der überschreibt. Wie das Directory aufgebaut ist, werden wir im nächsten 
Abschnitt besprechen. 

Diskette lesen FF12, D02C (neu) 

Diskette schreiben FFOF, D028 
Diskette lesen FF 12, D03C (alt) 

Diskette schreiben FFOF, D038 

Die DOXX-Adressen beziehen sich auf die zweite 4k-Bank. Der Aufruf der 
FFXX-Adressen schaltet die zweite 4k-Bank ein, erledigt die E/A- 
Operationen und schaltet automatisch auf die erste Bank zurück. 


Das PASCAUDirectory 

Im Gegensatz zu BASIC, das Disketten in Spuren und Sektoren einteilt, ver¬ 
wendet das UCSD-Pascal für Disketten eine Blockstruktur. Die von DOS 3.3 
verwendeten 16-Sektor-Disketten sind bis auf ein paar Einschränkungen mit 
Pascal kompatibel. Die beiden unterschiedlichen Sprachen verwenden das 
gleiche Diskettenformat, und Disketten, die von dem einen Betriebssystem 
formatiert wurden, können von dem anderen gelesen werden. Ein Beispiel 
dafür ist das DOS 3.3 COPY-Programm, das zum Teil aus BASIC-Befehlen 
und zum Teil aus Maschinensprache^.h. Assembler)-Routinen besteht. Mit 
diesem Programm lassen sich auch Pascal-Disketten mit einem oder zwei 
Laufwerken kopieren, ohne daß man dazu eine formatierte Diskette 
braucht. Es gibt noch einige andere BASIC-Hilfsprogramme, die sich eben¬ 
falls auf Pascal-Disketten anwenden lassen. 

Das Hauptproblem beim Lesen von BASIC-Disketten unter Pascal (und 
umgekehrt) besteht darin, daß man für jeden Block, auf den zugegriffen 
werden soll, eine Umrechnung in die entsprechende Spur- und Sektornum- 
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mer vornehmen muß. Die Spurnummer erhält man durch Division durch 
acht, während man die Sektornummer in der nachstehenden Tabelle nachse- 
hen kann (s. Sektorzuordnung für APPLE-Pascal). 

Das Directory ist bei Pascal-Disketten von besonderem Interesse, da 
man, wenn man dieses Inhaltsverzeichnis kennt, Programme und Daten von 
defekten Disketten “retten“ kann. Hier zunächst einige sehr allgemeine In¬ 
formationen. Die Diskette besteht aus 35 Spuren zu je 16 Sektoren. In Pascal 
werden diese Sektoren zu Zweiergruppen, den sog. Blöcken, zusammenge¬ 
faßt. Untersucht man das Directory vom BASIC aus, so erhält man einige 
Hinweise, die man für die Rettung von Daten gut gebrauchen kann. Das Di¬ 
rectory beginnt in Spur 0, Sektor 11 und setzt sich nach unten fort. Der nutz¬ 
bare Bereich befindet sich in den Sektoren 11 bis 2 (Blöcke 2 bis 5). Die Sek¬ 
toren 0,1,14,13 und 12 werden vom Betriebssystem zum Booten verwendet 
und sind nur für Disketten wichtig, die SYSTEM.APPLE enthalten. Die ver¬ 
bleibenden Blöcke 6 und 7 werden von Pascal zum Speichern von Dateina¬ 
men verwendet. 

Die von Pascal verwendete Sektornummerierung ist fast linear rück¬ 
wärts, mit Ausnahme der Blöcke 0 und 7 als erster und letzter Block einer 
Spur. Unter APPLE-Pascal besteht jede Spur aus acht Blöcken, denen die 
Sektornummern der Tabelle entsprechend zuzuordnen sind. Dieses Zuord¬ 
nungsmuster ist für alle Spuren gleich. 

Das Directory beginnt bei Block Nr.2, d.h. Spur 0, Sektor 11 und enthält als 
ersten Eintrag den Namen der Diskette und das Datum. 

Auf den Diskettennamen folgen nacheinander die Dateinamen. Bei allen 
Datei- oder Diskettennamen steht in der vorangehenden Stelle eine Hexa¬ 
dezimalzahl, die deren Länge angibt. Das Datum wird mit zwei Bytes codiert 
(Nr.20 und 21 werden vom Filer für das aktuelle Datum verwendet). Die By¬ 
tes 25 und 26 (vom Anfang jedes Directory-Eintrages aus gezählt) enthalten 
das Erstellungsdatum des jeweiligen Files. Das Datum besteht aus 16 Daten¬ 
bits, die sich aus der Verknüpfung der Bytes 26 und 25 ergeben. Das Jahr ist 
in den Bits 7 bis 1 von Byte 26 und der Tag in Bit 0 von Byte 26 und den Bits 
7 bis 4 in Byte 25 untergebracht. Der Monat schließlich setzt sich aus den Bits 
3 bis 0 aus Byte 25 zusammen. Die Datum-Informationen bestehen aus Bi¬ 
närzahlen, und die Monate werden durch die Zahlen 0 bis 12 dargestellt. 

Die Bytes 1 und 2 eines Directory-Eintrages enthalten die Block-Start¬ 
nummer, und die Bytes 3 und 4 enthalten die Block-Endnummer der zugehö¬ 
rigen Datei. In den Bytes 5 und 6 ist der Dateityp verschlüsselt. Die Zahlen 2, 
3 und 5 geben zum Beispiel an, ob es sich um ein Code-, Text- oder Datenfile 
handelt. Das siebente Byte enthält die Länge des Dateinamens, während der 
Name selbst in den folgenden 15 Bytes untergebracht ist. Die Bytes 23 und 24 
geben die Anzahl der im letzten Dateiblock vom File belegten Datenbytes an. 
Darauf folgt in den Bytes 25 und 26 das bereits beschriebene File-Datum. In 
allen Byte-Paaren wird das höherwertige Byte hinter das niederwertige Byte 
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gesetzt; eine “5“ wird also durch das Byte-Paar “05 00“ dargestellt. Der er¬ 
ste Dateieintrag beginnt bei Byte Nr.26 und besteht seinerseits aus 26 Bytes, 
der nächste Eintrag besteht aus den darauffolgenden 26 Bytes usw. 

Dateien werden durch Vermindern der Dateianzahl und durch Kompri¬ 
mieren des Directories gelöscht. Befindet sich der entsprechende Dateiein¬ 
trag am Ende der Dateiliste, kann das Directory nicht weiter komprimiert 
werden; deshalb wird in diesem Fall nur die Dateianzahl vermindert. Aus 
diesem Grund kann man auch Dateien wiederherstellen, wenn sie am Ende 
des Directories standen und die Disketteninformationen in der Zwischenzeit 
nicht durch Schreibzugriffe geändert wurden. Das Rekonstruieren von ge¬ 
löschten Dateien ist allerdings nicht mehr so einfach, wenn der entsprechen¬ 
de Directory-Eintrag irgendwo in der Mitte der Dateiliste stand. In diesem 
Fall muß die Lage des Files auf der Diskette entweder durch die “E(xtended 
Listing“-Funktion des Filers oder durch direkte Untersuchung der einzelnen 
Diskettenblocks ermittelt werden. 


Aufbau des Pascal-Dateiverzeichnisses 

Byte-Nr. 

0-25 Diskettenname und zugehörige Informationen 

26-51 Erster Dateieintrag 

52-77 Zweiter Dateieintrag 

MOD 26 Weitere Dateien 


Disketteninformationen 

1,0 Beginn des Directories 

3,2 Nummer des letzten Directory-Blocks 

5,4 ? immer null ? 

6 Länge des Diskettennamens 

7-13 Diskettenname 

15,14 Anzahl der Diskettenblocks 

17-16 ? immer null ? 

19,18 ? immer null ? 

21,20 Aktuelles Datum 

23,22 ? immer null ? 

24-26 ? immer null ? 
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Einzelne Dateien 


1,0 Nummer des Anfangsblocks 

3,2 Nummer des Endblocks 

5,4 Dateityp: 2 = Code, 3 = Text, 5 = Data 

6 Länge des Dateinamens (Maximal 15) 

7-21 Dateiname 

23,22 Anzahl der Bytes im letzten Block 

25,24 Dateidatum 

Datum des Files 

Byte 25 Byte 24 

(7654321) (07654) 

Jahr Tag 

0..99 0..31 


(3210) 

Monat 

1..12 


Sektorzuordnung für APPLE-Pascal 


Block- 

Nummer 

0 

1 

2 

3 

4 

5 

6 

7 

(nächste 

Spur) 

8 


Sektor- 

Nummer 

0,14 
13,12 
11,10 
9, 8 
7, 6 
5,4 
3,2 
1,15 


0,14 

usw. 


wenigstens 34 Mal wiederholen 
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Mit Hilfe von Record-Konstrukten läßt sich die Directory-Struktur als 
Pascal-Datentyp beschreiben. Im Byte vom Mai 1981 ist ein Programm ver¬ 
öffentlicht, das diese Information benutzt, um Pascal-Disketten zu katalogi¬ 
sieren. 


Die Funktionsweise des P-Code-Interpreters 

Hier nun unsere Interpretation, wie Pascal die P-Codes auf dem 6502- 
Mikroprozessor ausführt. Ich bewundere die Leute, die dieses Programm ge¬ 
schrieben haben; der Code ist sehr kompakt und effizient. 

Die erste Programmzeile ist bei der alten Version D243 und bei der neuen 
Version D253. 


LDY #00 
LDA §58,Y 
BPL PUSH 
ASL A 
STA 6F 
JMP 006E 


; Hole P-Code. 

; Wenn kein P-Code, lege Wort auf Stack ab. 
; Code mal zwei. 

; Änderung der indirekten Sprungadresse. 

; Springe zu Einsprungadresse. 


Bei den Adressen 58 und 59 liegt der sog. IPC, der Interpreter Program 
Counter . Dieser Wert ist ein Zeiger, der auf das aktuell zu verarbeitende 
Byte weist. Ist die dort stehende Zahl kleiner als 7F, dann wird sie und das 
darauffolgende Byte auf den System-Stack übertragen. Hat die Zahl einen 
größeren Wert, so wird sie mit zwei multipliziert. Der Grund hierfür ist, daß 
man für einen 16-Bit-Zeiger zwei Bytes benötigt. Das Resultat wird in der 
Zero-Page bei Adresse 6F gespeichert, die als Lo-Byte für einen indirekten 
Sprungbefehl verwendet wird. Dieser Sprungbefehl steht auf der Zero-Page 
als: 

006E 6C XX DO JMP §D0XX 

Der Wert XX entspricht dabei dem Lo-Byte des Befehls, während DO die Sei¬ 
te der Lookup-Tabelle darstellt. Also ist der P-Code nur ein Index für eine 
Sprungtabelle, mit deren Hilfe der P-Code interpretiert wird. Der 6502- 
Rechner benötigt dabei für eine P-Code-Instruktion nur 24 Mikrosekunden! 

In Tabelle 1 sind die P-Code-Namen und ihre Adressen aufgelistet. Die 
P-Codes selbst werden in Ihren APPLE-UCSD-Handbüchern beschrieben. 

Zusätzlich zu diesen Op-Codes gibt es einige Spezialprozeduren 
(CSP = 9E). Sie werden in Tabelle 2 aufgelistet. Es sind nicht sehr viele, und 
sie haben keine eigenen Namen. In der neuen Version gibt es eine weitere 
Prozedur bei 9E 0C. Ich überlasse es Ihnen, herauszufinden, wozu diese Pro¬ 
zedur benutzt wird. 
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type 


date_record = packed record 

month : 1..12 
day : 1..31 
year : 0..99 

end; 


(* auf 16 Bits verteilt: *) 
(* vier Bits fuer Monat *) 
(* fuenf Bits fuer Tag *) 
(* sieben Bits fuer Jahr *) 


vol_id = string [7] 

file_id = string [15] 


(* Diskettennarae z.B. APPLE3 *) 
(* Filenarae im Directory*) 


(* Die Dateitypen werden aus einer nummerierten Liste der neun 
UCSD-Dateitypen abgeleitet. Bis auf die Typen info, graf, foto 
und secure unterstuetzt APPLE-Pascal alle diese Dateitypen. Der 
Filer kann alle Typen unterscheiden, und der Benutzer kann daher 
eigene info-, foto- und graf-Files implementieren. Man darf dabei 
jedoch nicht erwarten, da die zukuenftigen Pascal-Implementierun¬ 
gen mit den selbstimplementierten Dateitypen (z.B. FOTO-Dateien) 
kompatibel sind.*) 


file_type = (untyped, badblk, code, text, info, data, graf, 
foto, securedir); 

(* Hier beginnt erst der eigentliche Directory-Record, waehrend 
obige Konstruktion das Lesen erleichtert. *) 


dir__record = record 

first_block : integer; 
last_block : integer; 

(* die beiden unterschiedlichen Typen von Directory-Eintraegen 
werden durch die CASE-Anweisung ausgedrueckt *) 


case dir__file_kind : file_type of 
securedir, untyped : (* erste Variante *) 
(dir_vol_name : vol_id; 

zero_blocks, nura_of_files, total_blocks:integer; 
last_boot : date_record); 
badblk, code, text, info, data, graf, foto : 

(* zweite Variante *) 

(dir__file_narae : file_id; 
last_byte : 1..512; 
dir_file_date : date__record); 

end; 
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Tab. 1 


Decimal 

Hex 

Mnemonic 

Location 




old 

new 

128 

80 

ABI 

D698 

D6BB 

129 

81 

ABR . 

EAF2 

ECB2 

130 

82 

ADI 

D6B6 

D6D9 

131 

83 

ADR 

E902 

EAC2 

132 

84 

AND 

D54 8 

D56B 

133 

85 

DIF 

DB2C 

DB57 

134 

86 

DVI 

D815 

D839 

135 

87 

DVR 

E99A 

EB5A 

136 

88 

CHK 

D85A 

D87E 

137 

89 

FLO 

EB6F 

ED3F 

138 

8A 

FLT 

EB92 

ED62 

139 

8B 

INN 

DC2A 

DC55 

140 

8C 

INT 

DAF5 

DB20 

141 

8D 

IOR 

D55B 

D57E 

142 

8E 

MOD 

D842 

D866 

143 

8F 

MPI 

D71F 

D742 

144 

90 

MPR 

EA95 

EC55 

145 

91 

NGl 

D6CE 

D6F1 

146 

92 

NGR 

EB00 

ECC0 

147 

93 

NOT 

D56E 

D591 

148 

94 

SRS 

DCA1 

DCCC 

149 

95 

SBI 

D6E0 

D70 3 

150 

96 

SBR 

E94 9 

EB0 9 

151 

97 

SGS 

DC8F 

DCBA 

152 

98 

SQI 

D766 

D789 

153 

99 

SQR 

EABD 

EC7D 

154 

9A 

STO 

D46B 

D47B 

155 

9B 

IXS 

D924 

D948 

156 

9C 

UNI 

DB4E 

DB79 

157 

9D 

S2P 

D3F1 

D401 

158 

9E 

CSP 

E5B1 

£6 30 

159 

9F 

LDCN 

D286 

D296 

160 

A0 

ADJ 

DBBA 

•DBE5 

161 

Al 

FJP 

D24F 

D25F 

162 

A2 

INC 

D963 

D987 

163 

A3 

IND 

D947 

D96B 

164 

A4 

IXA 

D976 

D99A 

165 

A5 

LAO 

D333 

D34 3 

166 

A6 

LSA 

D8C1 

D8E5 

167 

A7 

LAE 

D43B 

D44B 

168 

A8 

MOV 

D534 

D557 

169 

A9 

LDO 

D315 

D325 

170 

AA 

SAS 

D8E3 

D907 

171 

AB 

SRO 

D359 

D36 9 

172 

AC 

XJP 

D57B 

D59E 

173 

AD 

RNP 

E2FC 

E33F 

174 

AE 

CIP 

E210 

E253 

175 

AF 

EQU 

DDBD 

DDE8 

176 

BO 

GEQ 

DDB5 

DDE0 

177 

Bl 

GRT 

DD AD 

DDD8 

178 

B2 

LDA 

D39D 

D3AD 





Decimal 

Hex 

Mnemonic 

Location 




old 

new 

179 

B3 

LDC 

D485 

D495 

180 

B4 

LEQ 

DDB9 

DDE4 

181 

B5 

LES 

DDBl 

DDDC 

182 

B6 

LOD 

D377 

D387 

183 

B7 

NEQ 

DDA9 

DDD4 

184 

B8 

STR 

D3CB 

D3DB 

185 

B9 

UJP 

D257 

D267 

186 

BA 

LDP 

D958 

DA1C 

187 

BB 

STP 

DA4E 

DA72 

188 

BC 

LDM 

D4B8 

D4C8 

189 

BD 

STM 

D4D3 

D4F6 

190 

BE 

LDB 

D500 

D5 2 3 

191 

BF 

STB 

D51A 

D53D 

192 

CO 

IXP 

D9B5 

D9D9 

193 

CI 

RBP 

E2E7 

E32A 

194 

C2 

CBP 

E2B6 

E2F9 

195 

C3 

EQUI 

DF3A 

DF65 

196 

C4 

GEQI 

DF0C 

DF37 

197 

C5 

GRTI 

DF04 

DF2F 

198 

C6 

LLA 

D2C4 

D2D4 

199 

C7 

LDCI 

D28D 

D29D 

200 

C8 

LEQI 

DF08 

DF 3 3 

201 

C9 

LESI 

DF00 

DF2B 

202 

CA 

LDL 

D2A6 

D2B6 

203 

CB 

NEQI 

DF 10 

DF3B 

204 

CC 

STL 

D2EA 

D2FA 

205 

CD 

CXP 

E291 

E2D4 

206 

CE 

CLP 

E25E 

E2A1 

207 

CF 

CGP 

E27A 

E2BD 

208 

DO 

LPA 

D8A9 

D8CD 

209 

Dl 

STE 

D416 

D426 

210 

D2 

NOP 

D23D 

D24D 

211 

D3 

EFJ 

D212 

D1EF 

212 

D4 

NFJ 

D212 

D1EF 

213 

D5 

BPT 

E67E 

E82B 

214 

D6 

XIT 

D67D 

D6A0 

215 

Dl 

NOP 

D23D 

D24D 

216 

D8 

SLDL1 



• 

: 

• 

D299 

D2A9 

231 

El 

SLDL16 



232 

E8 

SLDOl 



: 

: 

• 

D308 

D318 

247 

F7 

SLD016 



248 

F8 

SIND0 

D4 5A 

D46A 

249 

F9 

SIND1 



: 

: 

• 

D457 

D467 

255 

FF- 

SIND7 
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Die Pascal-Struktur 


Nachdem ich die APPLE-Handbücher über das UCSD-Pascal-System unge¬ 
fähr zehnmal gelesen hatte, war ich total durcheinander und wußte über¬ 
haupt nicht mehr weiter. Als ich jedoch anfing, den Maschinencode Schritt 
für Schritt nachzuverfolgen, klärten sich eine Menge Fragen. Die übrig ge¬ 
bliebenen Ungereimtheiten hängen im wesentlichen mit den Unterschieden 
zwischen dem UCSD-Pascal und der von APPLE implementierten Version 
zusammen. 

Nachfolgend finden Sie eine Skizze der Speichernutzung für ein beliebi¬ 
ges Pascal-Programm. Die wesentlichen Bestandteile des Programms sind: 
das SEGMENT DISK DICTIONARY und das SEGMENT PROCEDURE 
DICTIONARY. Das Segment Disk Dictionary liegt im Bereich BE3E bis 
BE6D und enthält Angaben über das Laufwerk, die Block-Nummer und die 
Länge jedes Programmsegments. Das Segment Procedure Dictionary liegt 
bei BD9E bis BDBD und enthält selbst-relative Zeiger auf jede Procedure- 
Dictionary-Tabelle eines Segments. 

Wozu braucht man diese Dictionaries? Wenn eine Prozedur mit dem P- 
Code aufgerufen wird, muß das Pascal-System diese Prozedur im Haupt¬ 
speicher finden. Dazu wird zunächst eine Sprungtabelle bei BD1E bis BD3D 
(Invocation Table) durchsucht, um festzustellen, ob sich das gewünschte 
Segment im Hauptspeicher befindet. Ist das nicht der Fall, so wird das Seg¬ 
ment Disk Dictionary abgesucht, um das Segment auf der Diskette zu finden 
und in den Hauptspeicher zu laden. Befindet sich das Segment schon im Ar¬ 
beitsspeicher, dann durchsucht das Pascal-Betriebssystem das Segment Pro¬ 
cedure Dictionary nach dem Prozedurverzeichnis (Procedure Dictionary) des 
benötigten Segments. 

Das Procedure Dictionary enthält seinerseits selbst-relative Zeiger auf 
den Markstack der jeweiligen Prozeduren. Durch die Verwendung derartiger 
selbst-relativer Zeiger ist das Pascal so flexibel. Im Procedure Dictionary 
sind folgende Parameter verzeichnet: die Anzahl der Prozeduren im Dictio¬ 
nary, die Segmentnummer und die Wortliste mit den selbst-relativen Zeigern 
auf alle Prozeduren eines Segments. Dies wird in den APPLE-Handbüchern 
auch richtig beschrieben. 

Zu jeder Prozedur gehört eine Sprungtabelle, die oft als JTAB (Jump Ta¬ 
ble) bezeichnet wird. An dieser Stelle stimmt die Beschreibung der Handbü¬ 
cher mit dem, was tatsächlich implementiert wurde, nicht überein. Die fol¬ 
gende Zeichnung gibt den wirklichen Sachverhalt wieder: 
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niedrige Adressen 




















Die Interpreterzeiger für Prozedureintritt und -austritt (IC = Interpreter 
Counter) sind selbst-relative Zeiger auf den Anfang bzw. das Ende des jewei¬ 
ligen Prozedurcodes. Die Parametergröße muß kleiner als 255 sein, wogegen 
die Größe des Datensegments theoretisch beliebig ist. 

Um zu sehen, wozu alle diese Angaben benötigt werden, wollen wir eine 
P-Code-Anweisung verfolgen, mit der eine Prozedur aufgerufen wird. 

Das einfachste Beispiel ist CLP Nr.P, also “Call Local Procedure“ (Auf¬ 
ruf einer lokalen Prozedur mit Nr.P). Dieser P-Code-Befehl speichert P zu¬ 
nächst in Zero-Page-Adresse Nr.78. Danach wird automatisch eine Unter¬ 
routine zum Aufbau eines Activation Records aufgerufen (BUILD AN AC- 
TIVATION RECORD). Diese Prozedur liegt für externe Prozeduren bei 
E0A1 und für lokale Prozeduren bei EOBC. 

Diese Routine ist wahrscheinlich eine der wichtigsten Pascal-Prozeduren, 
denn sie bestimmt den Markstack für jede einzelne Prozedur. Da das Pascal- 
Betriebssystem selbst in Pascal geschrieben ist, ruft jede Prozedur eine weite¬ 
re Prozedur auf, bis schließlich eine der Kernprozeduren erreicht wird, die in 
Maschinensprache geschrieben sind. 

Beim Abarbeiten der Prozedur wird auf die übergebenen Parameter und 
die Sprungtabelle im Activation Record zugegriffen und der neue Basis- 
Adreßzeiger an das untere Ende des neuen Stapels (Pile) gesetzt. Reicht der 
Stapel über den Anfang des Heaps hinaus, so tritt ein Stack Overflow auf. 

Der dazu notwendige Code nimmt etwas weniger als einen Block Spei¬ 
cherplatz ein. Wenn man ihn näher untersucht, bekommt man einen plasti¬ 
schen Eindruck, wie effektiv Pascal tatsächlich ist. 

Eine weitere wichtige Unterroutine ist der “Invocation Counter“ (Auf¬ 
rufzähler). Diese Prozedur beginnt bei E4A5. Wird ein neues Segment aufge¬ 
rufen, das noch nie benutzt worden ist, liest diese Unterroutine sie von der 
Diskette ein und sucht in diesem Segment nach dem lexikalischen Level 0 
und der Prozedur Nummer 0. Sind diese nicht vorhanden, so kann das zu ei¬ 
ner Endlosschleife führen; in diesem Fall ist das Segment aber sowieso un¬ 
brauchbar. 

Ist das Segment schon einmal aufgerufen worden, wird die Aufruftabelle 
an der entsprechenden Stelle um 1 vermindert, um anzuzeigen, daß das Seg¬ 
ment noch verwendet wird, sowie, auf welchem Level es benutzt wird. 

Im folgenden Anhang finden Sie eine Liste der benutzten Zero-Page- 
Zeiger und Tabellen. Da das Betriebssystem so komplex ist, können wir 
nicht garantieren, daß die Beschreibungen in dieser Tabelle vollständig rich¬ 
tig sind. Seien Sie daher vorsichtig, wenn Sie mit dem Markstack experimen¬ 
tieren! 
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Tab. 2 


i 

Spezielle Prozeduren (alle mit vorabstehendem 9E (CSP)) 


Decimal 

Hex 

Mnemonic 

Location 




old 

new 

0- 

0 


ED26 

EF04 

1 

1 

NEW 

D60C 

D62F 

2 

2 

MVL 

E6F3 

E8A0 

3 

3 

MVR 

E6F3 

E8A0 

4 

4 

EXIT 

E5D9 

E784 

5 

5 


EDD9 

F06 9 

6 

6 


EDDE 

F06E 

7 

7 

IDS 

E5BB 

E6 3A 

8 

8 

TRS 

E5CD 

E640 

9 

9 

TIM 

E694 

E841 

10 

A 

FLC 

E5C1 

E6B2 

11 

B 

SCN 

E5C7 

E6F7 

12 

C 


— 

EF27 

13 

D 




2 

2 

UNUSED 

— 

— 

20 

14 




21 

15 


E59D 

E61C 

22 

16 

TNC 

E5A7 

E626 

23 

17 

RND 

EC00 

EDD0 

24 

18 

SIN 

EBEB 

EDBB 

25 

19 




2 

2 

MATH 

D212 

D1EF 

31 

1F 




32 

20 

MRK 

D648 

D66B 

33 

21 

RLS 

D65F 

D682 

34 

22 


ED1B 

EEF9 

35 

23 

POT 

ED31 

’EFOF 

36 

24 


EC 15 

EDE5 

37 

■25 


ED3F 

EF1D 

38 

26 


ED4 9 

EFA5 

39 

27 


E686 

E833 

40 

28 


El 51 

E904 
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Niedrige Adressen 
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Anhang 


Nützliche Pascal-Adressen 

Die folgenden Adressen scheinen mit den Angaben in den Pascal- 
Handbüchern übereinzustimmen. Sie gelten sowohl für die alte als auch für 
die neue Version. 


Adresse 

BDDE-BDFF 

BDDE.BD1E 

BDE0.BDE1 

BDE2 

BDE3 

BDE4,BDE5 

bdea.bdeb 

BDEC.BDED 

BDEE.BDEF 

BDF0.BDF1 

BDF2.BDF3 

BDF4.BDF5 

BDF6,BDF7 

BDF8-BDFF 


Bedeutung 

SYSCOM 

IORESULT 

XEQERR 

SYSUNIT 

BUGSTATE 

GDIRP 

STKBASE 

LASTMP 

JTAB 

SEG 

BOMBP 

BOMIPC 

HLTLN 

BRKPTS 


Zero-Page-Zeiger 

50,51 Zeiger auf BASE Activation Record 

52,53 Markstack-Zeiger 

54,55 JTAB-Zeiger 

56,57 SEG-Zeiger 

58,59 IPC 

5A,5B Pascal-Stack-Zeiger 

5C,5D Zeiger auf BASE-2 

5E,5F Wort-Offset vom Stack 

64,65 Kopie von 50,51 

6E-70 Sprungtabelle für P-Codes 

71-73 Sprungtabelle für Sonderoperationen 

74,75 Zwischenspeicher 
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78 Prozedurnummer zum Aufbau des Activation Records 

7E,7F MARKSTACK 

80,81 Diskettenpuffer 

86 Segmentnummer für Activation Record 

8E,8F Speicherplatz für Rücksprungadresse 

90,91 Pascal-System 

DO,DF Zwischenspeicher für Diskzugriffe 

Natürlich gibt es noch viel mehr Zero-Page-Adressen. Viel Spaß beim Su¬ 
chen! 

BE3E-BE9D Codefile-Puffer hat die Form: Laufwerk, Block-Nr., Länge 


Dabei gibt “Laufwerk“ die Unitnummer an, bei der das Segment zu finden 
ist. Die “Block-Nr.“ bezeichnet die Nummer des Diskettenblocks, bei der 
das Segment beginnt, und “Länge“ gibt die Länge des Segments an. Es han¬ 
delt sich dabei um ein Array mit 16 mal 3 Worten, das aufgebaut wird, nach¬ 
dem der erste Block eines Codefiles gelesen wurde. Jede Wortgruppe bezieht 
sich dabei auf eines von maximal 16 möglichen Segmenten einer Datei. 

BD1E-BD5D Aufrufzähler-Tabelle 

Ein Aufrufzähler zeigt dem Betriebssystem an, wie oft ein bestimmtes Seg¬ 
ment aufgerufen wurde. Für jedes Segment werden zwei Bytes reserviert, so 
daß man ein Segment über 65000 mal aufrufen kann, bevor Probleme auf- 
treten. 

BD5E-BD9D Weitere Datei 

BD9E-BDBD Tabelle der Segment Procedure Dictionaries 

Diese Tabelle zeigt dem Betriebssystem an, wo das zu einer Prozedur gehöri¬ 
ge Segment Dictionary zu finden ist. 

Die obengenannten PuffSr werden von der Segment-Leseroutine (neue 
Version: E417; alte Version: E3D7) benutzt, die ein angegebenes Segment 
liest (0..F), das im Bereich BE3E-BE9D gespeichert wurde. 

Die Seiten zwei und drei ($200 bis $3FF) werden von den Disketten-E/A- 
Prozeduren zur Fehlerüberprüfung verwendet. Dort abgelegte Werte werden 
bei Lese- oder Schreiboperationen auf der Diskette zerstört. 
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Philip Ender 


PASCAL ZAR 


Dieses Programm ist eine modifizierte Version des PASCAL ZAP- 
Programms, das in der Januarausgabe 1981 von Call-A.P.P.L.E. erschienen 
ist. Dieses Programm dient dazu, jeden beliebigen Block einer 16-Sektor- 
Diskette zu lesen, zu schreiben oder zu modifizieren. Bei Programmstart er¬ 
scheint folgendes Befehlsmenü: 

BEFEHLSUEBERSICHT 

L(ESEN (BLOCK)) 

SCHREIBEN ( BLOCK)) 

P(UFFER ANZEIGEN) 

D(RUCKEN DES PUFFERS) 

A(SCII AENDERN) 

H(EX AENDERN) 

N(EUES LAUFWERK [4] 

Q(UIT 

IHRE WAHL: 

Das Programm kann lesend oder schreibend auf jedes vom Benutzer angege¬ 
bene Laufwerk zugreifen. Standardwert ist dabei Nr.4, das Boot-Laufwerk. 
Die Befehlsmöglichkeiten sind im wesentlichen selbsterklärend. Gibt man 
vom Menü aus ein “R“ ein, so kann der Benutzer einen Diskettenblock von 
der durch die N(EUES LAUFWERK-Option vorbestimmten Diskette lesen. 
Der Block wird in einen Puffer kopiert, der hexadezimal und in ASCII- 
Schreibweise ausgegeben wird, wenn man “P“ (wie P(UFFER ANZEIGEN) 
drückt. Mit H(EX oder A(SCII AENDERN können einzelne Bytes des 
Blocks geändert werden. Die Änderungen lassen sich mit S(CHREIBEN 
(BLOCK) auf die Diskette zurückschreiben. 

Warnung: Mit PASCAL ZAP sind irreparable Diskettenmodifikationen 
nicht auszuschließen. Fertigen Sie von der Diskette, mit der Sie 
arbeiten, vor Gebrauch dieses Programms eine Sicherheitskopie 
an. PASCAL ZAP ist manchmal hilfreich beim Rekonstruieren 
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von Diskettendateien (das Directory beginnt bei Block 2). Haupt¬ 
sächlich wird man das Programm dazu verwenden, einzelne Dis¬ 
kettenblocks zu untersuchen und damit mehr über die Arbeits¬ 
weise des Pascal-Betriebssystems zu lernen. 


PROGRAM PASCAL_ZAP; 


(* *) 

(* Von Philip B. Ender *) 

(* Modifikationen von Ron DeGroat Juni '81 *) 

(* Ersterscheinung in Call-A.P.P.L.E. ,1/81 *) 

(* *) 

(♦******=►***#*************************************) 


CONST SP=' •; 


VAR 

BUF : 

HEX_DIGIT : 
HEXJBYTE : 
HEX_STR : 

BLKJJUM, BYTE, 
DEV_NUM, DEC, 
NUM_COLS : 
CHOICE,CH 
PRINTERjOFF : 
F : 


PACKED ARRAY[0..511] OF 0..255; 
PACKED ARRAYfO..15 ] OF CHAR; 
PACKED ARRAY[0..1 ] OF CHAR; 

STRING[5]; 


INTEGER; 

CHAR; 

BOOLEAN; 

INTERACTIVE; 


PROCEDURE DEC_TO_HEX__BYTE(DEC: INTEGER); 

BEGIN 

HEX_BYTE[0]:=HEX_DIGIT[(DEC DIV 16)]; 

HEX__BYTE[ 1 ] :=HEX_DIGIT[(DEC MOD 16)] 

END; 

PROCEDURE WRITE_BLOCK; 

BEGIN 

WRITELN; WEITELN; 

WRITEC'J" EINGEBEN, WENN BLOCK GESCHRIEBEN WERDEN SOLL ', 
B1^__NUM:3,SP:2); 

READLN(CH); 

IF CH= f J* THEN 

UNITWRITE(DE V_NUM,BUF,512,BLK_NUM,0) 

END; 

PROCEDURE READ_BLOCK; 

BEGIN 

WRITELN• WRITELN• 

WRITE('WELCHEN BLOCK LESEN?’); READLN(BLK_NUM); 

WRITELN; 

WRITE('LESE BLOCK ',BLK_NUM:3); 

UNITREAD(DEV_NUM,BUF,512,BLK_NUM,0) 

END; 
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PROCEDURE DISPLAY_BUFFER; 

VAR ROW.COL: INTEGER; 

BEGIN 

R0W:=0; BYTE:=0; 

REPEAT 

WRITE(F,BYTE:3,':'); 

FOR C0L:=0 TO NUMJDOLS DO 
BEGIN 

DEC_TO_HEX_BYTE(BUF[BYTE+COL]); 
WRITE(F,HEX_BYTE:3) 

END; 

WRITE(F.SP); 

FOR C0L:-0 TO NUM_COLS DO 
IF (BUF[BYTE+COL]>31) AND 
(BUF[BYTE+COL]<127) 

THEN 

WRITE(F f CHR(BUF[BYTE+COL])) 

ELSE 

WRITE(F,'.'); 

WRITELN(F); 

BYTE:=BYTE+NUM_COLS+l; ROW;=ROW+l; 

IF (ROW MOD 22 = 0) AND PRINTERJDFF THEN 
BEGIN 

WRITE(F,'BLOCK ',BLK_NUM:3, 

SP-CONT; E-EXIT'); 
READ(KEYBOARD.CH); PAGE(F); 

IF CH='E' THEN EXIT (DISPLAY_BUFFER) 
END 

UNTIL BYTE>504; 

WRITELN(F,'BLOCK ',BLK_NUM:3); 

IF NOT PRINTERJDFF THEN G0T0XY(7,7); 

WRITE('WEITER DURCH TASTENDRUCK'); 
READ(KEYBOARD.CH); 

END; 


PROCEDURE PRINT_BUFFER; 

BEGIN 

CLÖSE(F); (* VOR RESET F SCHLIESSEN *) 
RESET(F,'PRINTER;'); 

NUMJXDLS:=15; 

PRINTERJDFF:=FALSE; 

WRITE('DRUCKEN....'); 

DISPLAYJBUFFER; 

PRINTER GFF:=TRUE; 

CLOSECFj; 

RESET(F,’CONSOLE:'); 

NUM_C0LS:-7; 

END; (*PRINT_BUFFER*) 


PROCEDURE GET_BYTE; 

BEGIN 

WRITE('ZU AENDERNDES BYTE?'); 
READLN(BYTE); WRITELN 
END; 
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PROCEDURE ASCII_CHANGE; 

BEGIN 
GET_BYTE ; 

REPEAT 

IF (BUF[BYTE]>31) AND (BUF[BYTE]<127) 

THEN CH:-CHR(BUF[BYTE]) 

ELSE CH:=*.'; 

WRITELN(BYTE:3,*: ',CH,' = CHR(',BUF[BYTE], 1 ) 1 ); 
WRITE (BYTE:3,*: '); READ(CH); 

WRITELN; 

IF NOT EOLN THEN BUF[BYTE]:=ORD(CH); 

. BYTE:=*BYTEfl 
UNTIL EOLN 
END; 

PROCEDURE HEXJSTR_TO_DEC; 


VAR LO,HI: INTEGER; 

BEGIN 

HI: =SCAN( 16, =HEX_STR[ 1 ], HEX_DIGIT); 

LO: =SCAN( 16, =HEX_STR[ 2 ], HEX__DIGIT); 
DEC:=HI*16+LO 
END; 

PROCEDURE HEXJ3HANGE; 

VAR LEN; INTEGER; 

BEGIN 

GET_BYTE; 

REPEAT 

DEC_TO__HEX_B YTE ( BUF [ BYTE ]); 

WRITELN(BYTE:3, 1 : ',HEX_BYTE); 

WRITE (BYTE:3,*; *); 
READLN(HEX_JSTR); 

WRITELN; 

LEN:»LENGTH(HEXJSTR); 

IF LENOO THEN 
IF LEN>2 THEN 

WRITELN(*HEX WERT ZU LANG*) 
ELSE 
BEGIN 

IF LEN*1 THEN 

HRXJSTR: =CONCAT( ! 0 ! ,HEXJ5TR); 
HEX STR_TO__DEC; 

BUFTbYTE]:=DEC; BYTE:=BYTE+1 
END 

UNTIL LEN=0 
END; 


PROCEDURE SET_DRIVE; 

BEGIN 

GOTOXY(0,8); 

WRITECBITTE UNIT (LAUFWERK) ANGEBEN (4..5, 9..12): *); 
READLN ( DEV_NUM); 

END; 
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PROCEDURE SHOWMENU; 

BEGIN 

PAGE(OUTPUT); 

WRITELN; WRITELN; 

WRrTELN(SP:5,’BEFEHLSUEBERSICHT'); 

WRITELN; 

WRITELN(SP:5,'L(ESEN (BLOCK)'); 
WRITELN(SP:5,'S(CHREIBEN (BLOCK)'); 
WRITELN(SP:5,'P(UFFER ANZEIGEN'); 
WRITELN(SP:5,'D(RUCKEN DES PUFFERS'); 

WRITELN(SP:5,'A(SCII AENDERN'); 
WRITELN(SP:5,'H(EX AENDERN'); 

WRITELN(SP:5,'N(EUES LAUFWERK [',DEV_NUM,']'); 
WRITELN(SP:5,'Q(UIT'); 

WRITELN; WRITELN; 

WRITEC IHRE WAHL: ') 

END; 

PROCEDURE INITIALIZE; 

BEGIN 

HEX_DIGIT:-’0123456789ABCDEF'; 

PRINTER_OFF:=TRUE; 

RESET(F,’CONSOLE:'); 

NUM_C0LS:=7; 

DEV_NUM:=4; 

END; 

BEGIN (*HAUPTPROGRAMM*) 

INITIALIZE; 

REPEAT 

SHOWMENU; 

READ(KEYBOARD,CHOICE); 

PAGE(OUTPUT); 

CASE CHOICE OF 
’L': READ_BLOCK; 

’S’: WRITE_BLOCK; 

’P': DISPLAYJBUFFER; 

’D': PRINT_BUFFER; 

’A': ASCII_CHANGE; 

'H': HEX_CHANGE; 

•N': SET_DRIVE 
END; 

UNTIL CHOICE='Q'; 

G0T0XY(8,8); WRITE('DAS WAR"S..'); 

END. 






•V 



























Ron DeGroat 


Die narrensichere 
Befehlseingabe 


Das häufigste und lästigste Problem für Benutzer von APPLE-Pascal ist 
wahrscheinlich das der Eingabefehler. In diesem Kapitel wird daher be¬ 
schrieben, wie man die Eingabe von der Tastatur für jede Art von Programm 
praktisch narrensicher gestalten kann, indem man verhindert, daß unzulässi¬ 
ge Daten ins Programm gelangen. Darüberhinaus wird bei Verwendung der 
hier wiedergegebenen Routinen (Listing Nr.l) die Dateneingabe interaktiver, 
indem jedes eingegebene Zeichen sofort auf seine Zulässigkeit hin überprüft 
wird. 

Wartet ein APPLE-Pascal-Programm auf die Eingabe eines numerischen 
Wertes, so tritt bei versehentlicher Eingabe eines Buchstabens ein “BAD IN¬ 
PUT FORMAT 4 ‘-Fehler auf. Der Computer fordert den Benutzer dann höf¬ 
lich auf “PRESS «SPACE» TO CONTINUE“ (Bitte «Leertaste» drücken), 
worauf das System selber aber sehr unhöflich reagiert: es re-initialisiert sich 
selbst. 

Offensichtlich nimmt das Betriebssystem Eingabe- oder Laufzeitfehler 
sehr ernst, denn es reagiert auf sie ziemlich dramatisch. Hinter diesem Ver¬ 
halten steckt die Idee, daß Laufzeitfehler in Pascal-Programmen eigentlich 
gar nicht auftreten dürfen. In das Betriebssystem sind etliche Sicherheitsvor¬ 
richtungen eingebaut, die verhindern sollen, daß ein Programm “abstürzt“. 
Normalerweise läuft ein Programm, das ohne Fehler kompiliert wurde, auch 
fehlerfrei. Eine wesentliche Ausnahme hiervon bildet die Klasse von Fehlern, 
die durch nicht erwartete Eingaben entstehen. 

Unglücklicherweise erfordern die meisten Pascal-Programme die Einga¬ 
be von Daten durch einen menschlichen Benutzer mit Hilfe der Tastatur. Da 
nun aber Menschen dazu neigen, Fehler zu machen, und Pascal auf solche 
Fehler heftig reagiert, ist es äußerst wichtig, über Tastatureingabe- 
Prozeduren zu verfügen, die die Eingabe unzulässiger Daten so zuverlässig 
wie nur irgend möglich verhindern. Die einfachste Lösung dieses Problems 
ist, die eingegebene Zeile nach Drücken der Return-Taste auf Zulässigkeit 
hin zu prüfen. Der interaktivere Weg besteht darin, jedes einzelne Zeichen 
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sofort nach der Eingabe auf seine Legalität hin zu testen. 

Die Tastatureingabe kann darüberhinaus verbessert werden, indem man 
mit Hilfe der Backspace-Taste (Linkspfeil) jeden einzelnen Wert korrigiert, 
bevor man ihn durch Drücken von Return dem Programm übergibt. Im 
APPLE-Pascal wird dieser Mechanismus bei der Eingabe von Strings unter¬ 
stützt, nicht aber bei Real- und Integer-Zahlen. Zur Lösung dieses Problems 
kann man die Daten als Strings einiesen und dann in die entsprechenden nu¬ 
merischen Werte konvertieren. Zusammenfassend kann man sagen, daß eine 
gute Eingaberoutine unzulässige Eingaben zur Vermeidung von Laufzeitfeh¬ 
lern herausfiltert, die einzelnen gedrückten Tasten jeweils auf Legalität hin 
überprüft, damit das Programmverhalten interaktiver wird, und daß die 
Zahleneingabe in Form von Strings erfolgt, so daß die Backspace-Taste zu 
Korrekturzwecken benutzt werden kann. 

Das Einlesen von Fließkommazahlen (Real-Zahlen) ist am schwierigsten 
zu realisieren (vgl. PROCEDURE GETFPNUM), da das Eingabeformat bei 
diesem Datentyp so unterschiedlich sein kann. Das erste Zeichen kann zum 
Beispiel in der Menge [“0“.. 4 ‘9“,sein, danach ist jedoch die Ein¬ 
gabe eines Minuszeichens nicht mehr zulässig. Eine Real-Zahl darf auch nur 
einen Dezimalpunkt enthalten und eine gewisse Länge nicht überschreiten. 
Darüberhinaus darf eine solche Zahl nur in einem bestimmten, durch 
Minimal- und Maximalwerte begrenzten Bereich liegen. Beachtet man all 
diese Beschränkungen, so ist es relativ einfach, die meisten durch Eingabe¬ 
fehler verursachten Laufzeitfehler zu vermeiden. 

Wenn man die in Listing Nr. 1 gezeigte intrinsische Unit kompiliert und in 
die SYSTEM.LIBRARY eingebaut hat, kann man sie bequem von jedem be¬ 
liebigen Pascal-Programm aufrufen, indem man die Deklaration “USES 
KYBDSTUFF“ angibt (also in der gleichen Weise, wie man auch auf die 
TURTLEGRAPHICS- oder APPLESTUFF-Unit zugreifen kann). Intrinsi¬ 
sche Units sind nicht nur einfach zu benutzen, sondern sparen auch Disket¬ 
tenplatz, da sie nur in der SYSTEM.LIBRARY existieren. Manchmal ist je¬ 
doch von der Verwendung solcher Units abzuraten, nämlich dann, wenn ein 
Programm von der SYSTEM.LIBRARY unabhängig sein soll. In diesem 
Fall sollte man reguläre Units verwenden. Kommt es wegen der Programm¬ 
länge zu Speicherplatzproblemen, so sollte man nur diejenigen Prozeduren 
direkt in den Programmtext kopieren, die man auch tatsächlich braucht. 

Das KYBDDEMO-Programm, das in Listing Nr.2 abgedruckt ist, zeigt, 
wie man KYBDSTUFF verwenden kann. Mit KYBDDEMO kann man auch 
testen, wie effizient die Eingaberoutinen sind. Der schnellste Weg, herauszu¬ 
finden, ob die Prozeduren auch wirklich absolut narrensicher sind, ist, sie 
von anderen Benutzern ausprobieren zu lassen. Vorschläge zur Verbesserung 
und Erweiterung dieser Prozeduren werden selbstverständlich gerne ange¬ 
nommen. 
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Durch die in Listing Nr.l abgedruckten Prozeduren wird die Tastaturein¬ 
gabe sehr sicher und interaktiv. Mit ihnen kann man benutzerfreundliche 
Programme schreiben, die so gut wie immun gegen Eingabefehler sind. 

GETCHAR ist die allgemeinste und nützlichste dieser Routinen. Sie 
prüft jedes Zeichen bei seiner Eingabe auf Zulässigkeit. Dabei werden nur 
die in OKSET befindlichen Zeichen akzeptiert. Werden andere, nicht im Set 
aufgenommene Zeichen eingegeben, erfolgt eine direkte Warnung für den 
Benutzer mittels eines Lautsprechertons. Da jedes Zeichen einzeln geprüft 
wird, ist die Benutzereingabe völlig interaktiv. GETCHAR wird von den an¬ 
deren Routinen benutzt, um Strings, Hexadezimal-, Integer- und Realzahlen 
zu lesen. 

Zur Zeit gibt es die größeren Schwierigkeiten, die EDV zu verbessern, im 
Software- und nicht im Hardware-Bereich. Vielleicht könnte man aus den 
Bereichen der Hardware-Entwicklung etwas für die Software-Entwicklung 
lernen. 

In der Elektronik hat der integrierte Schaltkreis die Technik durch die 
Modularisierung von Grundschaltungen revolutioniert. Durch das IC, das 
einen Grundbaustein der Elektrotechnik darstellt, ließen sich komplizierte 
elektronische Geräte billiger und einfacher hersteilen. Sogar einfache Schalt¬ 
kreise wurden durch die effizienteren, einsteckbaren Chips verbessert. 

Im Computerbereich ist eine ähnliche Revolution auf dem Software- 
Sektor nötig. Durch effiziente, gut konstruierte Software-Blöcke könnte 
man nämlich die Entwicklung von Programmen enorm vorantreiben. Mit 
hochwertigen, einsteckbaren Modulen könnte man eine Menge doppelter 
Arbeit sparen und eine ganze Reihe mittelmäßiger Routinen durch gut gete¬ 
stete, standardisierte Prozeduren ersetzen. Mit solchen Programmblöcken 
ausgerüstet kann dann auch ein zweitklassiger Programmierer erstklassige 
Programme schreiben. 

Es bleibt zu hoffen, daß die hier vorgestellten Routinen in APPLE- 
Kreisen einen Maßstab setzen, was die Entwicklung standardisierter 
Software-Tools mit universellen Anwendungsmöglichkeiten betrifft. Mit gu¬ 
ten Werkzeugen erleichtert man sich die Arbeit und erhält bessere Resultate. 
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(*************************) 
(* Listing #2: KYBD DEMO *) 
(* *) 
(* von Ron De Groat *) 

(*************************) 


(*$V-*) 

PROGRAM KYBDDEMO; 


USES KYBDSTUFFj 


VAR ALPHABET : SETOFCHAR; (»Typdefinition in KYBDSTUFF*) 

FL0AT_PT : REAL; 

INT.NUM, 

HEX_VAL : INTEGER; 

HEXWORD ; STRING[2]; 

ALFASTRING : STRING[10]; 

CH : CHAR; 

BEGIN 

REPEAT 

WRITELN('*** WEITER DURCH DRUECKEN EINER TASTE ***'); 

UNTIL KEYPRESS; 

READ(KEYBOARD.CH); (*Zum Loeschen des Tastendrucks*) 

PAGE(OUTPUT); 

PR0MPTAT(0,'VERSUCHEN SIE, UNZULAESSIGE WERTE EINZUGEBEN.')i 
ALPHABET:=[’A'..'Z']; 

PR0MPTAT(4,'GEBEN SIE EIN MAXIMAL DREISTELLIGES BUCHSTABENSTRING EIN: '); 
GETSTRING(ALFASTRING,ALPHABET,3); 

WRITELN; 

INT_NUM:=GETINTEGER('INTEGER (-KK100): ',100,-1); 


WRITELN; 

FLOAT_PT:=GETFPNUM('FLIESSKOMMAZAHL (0.1<Z<9.999): ',9.999,0.1); 
WRITELN; 

HEX_VAL:=GET_HEX_VAL('HEX ADDR: ',4); 

INTTOHEX(HEXVAL,HEXWORD); 

WRITELN('HEX WERTE WERDEN ALS INTEGERZAHLEN ZURUECKGEGEBEN: ',HEXVAL); 
WRITELN('UND KOENNEN WIEDER IN HEX UMGEWANDELT WERDEN: '.HEXWORD); 

WRITELN; 

HEX_VAL:=GETHEXVAL('HEX BYTE: ',2); 

WRITELN('HEX WERT: ’,HEX_VAL); 

END. 
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(***************************************) 
(* *) 

(* Listing #1: KYBDSTUFF *) 

(* *) 

(* Von Ron DeGroat Juli 1981 *) 

(* *) 

(***************************************) 


(*$S+,V-*) 

UNIT KYBDSTUFF; INTRINSIC CODE 25 DATA 26; 

(* Durch Loeschen von "INTRINSIC...26;” wird KYBDSTUFF zur 
regulaeren Unit. Solche Units koennen mit dem Linker 
explizit in ein Hauptprogramm eingebunden werden. In¬ 
trinsische Units muessen in die SYSTEM.LIBRARY eingefuegt 
werden. *) 


INTERFACE 

TYPE SETOFCHAR = SET OF CHAR; (* Muss fuer Parameterliste deklariert werden *) 

(* Die folgenden Befehle koennen vom Hauptprograrara in WRITE-Anweisungen *) 

(* verwendet werden. Die Variablennaraen duerfen nicht im Hauptprograram *) 

(* erneut deklariert werden. *) 

VAR CR, (*Carriage return (Wagenruecklauf) *) 


BS, (*Back space (Rueckwaertstaste) *) 
EOL, (*Loeschen bis Zeilenende *) 
EOS, (*Loeschen bis Bildschirmende *) 
BELL:CHAR; (*Piepton *) 

FUNCTION GET_CHAR(OKSET:SETOFCHAR):CHAR; 


PROCEDURE GETSTRING(VAR S:STRING; OKSET:SETOFCHAR; MAXLEN:INTEGER); 
FUNCTION GET__HEX_VAL(PROMPT:STRING; MAXLEN:INTEGER):INTEGER; 
FUNCTION HEX_T0_INT(HEXSTR:STRING):INTEGER; 

PROCEDURE INT_TO_HEX(INT:INTEGER; VAR HEX__STR:STRING); 

FUNCTION FP_NUM(FP__STR:STRING):REAL; 

FUNCTION GET_FP_NUM(PROMPT:STRING; MAXVAL,MINVAL:REAL):REAL; 
FUNCTION GET_INTEGER(PROMPT:STRING; MAXVAL,MINVAL:INTEGER):INTEGER; 
PROCEDURE PROMPTATO.INE:INTEGER; MESSAGE:STRING); 

FUNCTION KEYPRESS:BOOLEAN; 


IMPLEMENTATION 

VAR HEXDIGIT :PACKED ARRAY[0..15] OF CHAR; 


(* LIEST OKSET-ZEICHEN, BEI ALLEN ANDEREN PIEPT ! S *) 


FUNCTION GET_CHAR(*(OKSET:SETOFCHAR):CHAR*); 


VAR CH :CHAR; 
GOOD :BOOLEAN; 
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BEGIN 

REPEAT 

READ(KEYBOARD,CH); 

IF EOLN(KEYBOARD) THEN CH:=CR; 
GOOD:=CH IN OKSET; 

IF NOT GOOD THEN WRITE(BELL) 
ELSE IF CH IN [' \.CHR(125)] 
THEN WRITE(CH); 

UNTIL GOOD; 

GET_CHAR:=CH; 

END; 


(* LIEST STRING MIT LAENGE "MAXIMUM” UND ZEICHEN AUS "OKSET" *) 

(^*****^* 4 ^*^**********************************^*^*******) 


PROCEDURE GETSTRING(*VAR S:STRING; OKSET-.SETOFCH AR; MAXLEN: INTEGER*) ; 

VAR S1 ;STRING[1]; 

STEMP :STRING; 

LEN :INTEGER; 

FIRSTCHAR :BOOLEAN; 

LASTCHAR :BOOLEAN; 

GETSET :SETOFCHAR; 

BEGIN 

Sl:=* *• STEMP:=’ 1 • 

IF MAXLEN<1 THEN MAXLEN:=1 

ELSE IF MAXLEN>255 THEN MAXLEN:=255; 

REPEAT 

LEN:=LENGTH(STEMP); 

FIRSTCHAR:=(LEN=0); 

LASTCHAR:=(LEN=MAXLEN); 

IF FIRSTCHAR THEN GETSET:=OKSET 
ELSE IF LASTCHAR THEN GETSET:=[CR,BS] 

ELSE GETSET:=OKSET+[CR,BS]; 

S1[1]:=GETCHAR(GETSET); 

IF Sl[l] IN OKSET THEN STEMP:=CONCAT(STEMP,Sl) 

ELSE IF Sl[l]=BS THEN 
BEGIN 

WRITE(BS, 1 1 ,BS); 

DELETE(STEMP,LEN,1); 

END; 

UNTIL S1[1]=CR; WRITELN; 

S:=STEMP; 

END; 


/♦*************♦*♦*******************************) 
(* GI-BT NACHRICHT "MESSAGE" IN ZEILE "LINE" AUS *) 

(*♦****♦***********♦*****************************) 
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PROCEDURE PROMPTAT(*LINE:INTEGER; MESSAGE.-STRING*); 
BEGIN 

GOTOXY(0,LINE); 

WRITE(MESSAGE.EOL)j 
END; 


(*♦***♦***********************************■) 
(* KONVERTIERT INTEGERZAHL IN HEX STRING *) 


PROCEDURE INT_TO_HEX(*(INT:INTEGER; VAR HEX_STR:STRING)*); 

VAR HIBYTE,LOBYTE :INTEGER; 

BEGIN 

HEX_STR:=’0000’; 

IF INT<0 THEN 
BEGIN 

INT:- INT+32767+1;; 

HIBYTE:= (INT DIV 256) +128; 

END 

ELSE 

HIBYTE:= INT DIV 256; 

LOBYTE:= INT MOD 256; 

HEXSTR[11:= HEXDIGIT[HIBYTE DIV 16]; 

HEXSTR[2]:= HEXDIGIT[HIBYTE MOD 16]; 

HEXSTR[3]:= HEXDIGIT]LOBYTE DIV 16]; 

HEXSTR[4]:= HEXDIGIT[LOBYTE MOD 16]; 

WHILE (HEXSTR[1]='0') AND (LENGTH(HEXSTR)>1) DO DELETE(HEXSTR,1,1); 


END; 


(*************************************) 
(♦ CONVERTIERT HEX STRING IN INTEGER *) 
(*************************************) 


FUNCTION HEX_TO_INT(*(HEXSTR:STRING):INTEGER*); 

VAR I.NUM,DIGIT :INTEGER; 

BEGIN 

NUM:=0; 

FOR I:=l TO LENGTH(HEXSTR) DO 
BEGIN 

DIGIT:=SCAN(16,=HEXSTR[I],HEXDIGIT); 
NUM:=NUM*16+DIGIT; 

END; 

HEX_TO_INT:=NUM; 

END j 


(*******************************************) 
(♦ LIEST HEX-ZAHL UND LIEFERT INTEGERWERT *) 

^ *******************************************) 


FUNCTION GET_HEX_VAL(*(PROMPT:STRING; MAXLEN:INTEGER):INTEGER*); 
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VAR HEXSET :SETOFCHAR; 

HEX_STR -.STRING; 

BEGIN 

WRITE(PROMPT f EOL); 

HEXSET:=[ , 0 , .. , 9 , , I A , .. I F 1 ]; 

IF MAXLEN>4 THEN MAXLEN:=4; 
GETSTRING(HEX_STR,HEXSET,MAXLEN); • 
GET_HEX_VAL: =HEX_TO__INT(HEX_STR); 
END; 


(jM^***^*****^*******************************) 

(* CONVERT FLIESSKOMMA-STRING IN REALWERT *) 
( &*&**************************************** ) 


FUNCTION FP__NUM(*(FP__STR: STRING): REAL*); 

VAR POWER,SIGN,I :INTEGER; 

NUM :REAL; 


BEGIN 

IF FP_STR[l]» 1 - 1 THEN 
BEGIN 


SIGN:=-1; 

DELETE( FP__STR ,1,1); 
END 

ELSE SIGN:=1; 


POWER: =POS( *. *,FPJSTR); 

IF POWER<>0 THEN 
BEGIN 

DELETE(FP_STR,POWER,1); 

POWER: «LENGTH ( FP_JSTR ) -POWER+1 


END; 


NUM:=0; 

POR I: =1 TO LENGTH( FPJSTR) DO 

NUM:=10*NUM+(0RD(FP__STR[I])-0RD( f O*)); 
FP_NUM:=SIGN*NUM/PWROFTEN(POWER); 


END; 


(* WIRD VON GET__FP_NUM AND GET__INTEGER BENUTZT *) 
(***********************************************j 

FUNCTION GET_NUM(MAXVAL,MINVAL:REAL; PT_OK:BOOLEAN):REAL; 


VAR FIRSTCHAR, LASTCHAR 
NUMSET, GETSET, OKSET 
NUM_STR_TEMP 
S1 

LEN, MAXLEN 
NUM 


BOOLEAN; 
SETOFCHAR; 
STRING[10]; 
STRING[1]; 
INTEGER; 
REAL; 


BEGIN 

NUMSET:=[ ! O f ..*9’]; 

IF MINVALCO THEN OKSET:=NUMSET+[] ELSE OKSET:=NUMSET; 
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IF PT_OK THEN MAXLEN:=8 ELSE MAXLEN:=7; 

Sl:=' '; NUM_STR_TEMP: = "; 

REPEAT 

LEN:=LENGTH(NUM_STR_TEMP); 

FI RSTCHAR:=(LEN=0); 

LASTCHAR:=(LEN=MAXLEN); 

IF PT_OK THEN OKSET:=OKSET+['.'] 

ELSE OKSET:=OKSET- 

IF FIRSTCHAR THEN GETSET:=OKSET 
ELSE 

IF LASTCHAR THEN GETSET:=[CR,BS] 

ELSE GETSET:=OKSET+[CR,BS]; 

Sl[1]:=GET_CHAR(GETSET); 

IF Sl='.' THEN PT_OK:=FALSE; 

IF S1[1] IN OKSET THEN 
BEGIN 

NUM_STR_TEMP:=CONCAT(NUM_STR_TEMP,S1)j 
IF Sl[l] IN NUMSET THEN 
BEGIN 

NUM:=FP_NUM(NUM_STR_TEMP); 

IF (NUM>MAXVAL) OR (NUM<MINVAL) THEN 
BEGIN 

WRITE(CHR(7)); 

WRITE(BS,' ',BS); 
DELETE(NUM_STR_TEMP,LEN+1,1); 
END; 

END; 

END 

ELSE IF Sl[1]=BS THEN 
BEGIN 

IF POS( 1 .',NUM_STR_TEMP)=LEN THEN 
PT_OK:=TRUE; 

WRITE(BS,' ',BS); 

DELETE (NU>1_STR_TEMP, LEN, 1); 

END; 

ÜNTIL S1[1]=CR; WRITELN; 


GET_NUM:=FP_NUM(NUM_STR_TEMP); 
END; (*GET_NUM*) 


(********************************************************) 

(* LIEST FLIESSKOMMAZAHL IM BEREICH VON "MIN" BIS "MAX" *) 

(********************************************************) 

FUNCTION GET_FP_NUM(*(PROMPT:STRING; MAXVAL,MINVAL:REAL):REAL*); 

VAR POINT_OK:BOOLEAN; 


BEGIN 

WRITE(PROMPT,EOL); 

POINT_OK:=TRUE; 

GET__FP__NUM: =GET_NUM ( MAX VAL, MIN VAL, TRUE) ; 
END; 


(t**********^***********************************) 

(* LIEST INTEGERZAHL IM BEREICH "MIN" BIS "MAX" *) 


FUNCTION GET__INTEGER(*(PROMPT:STRING; MAXVAL,MINVAL:INTEGER):INTEGER*) 
VAR POINTJDK:BOOLEAN; 

BEGIN 

WRITE(PROMPT,EOL); 

POINTJDK:=FALSE; 

GET_INTEGER: =TRUNC(GET_NUM(MAXVAL,MINVAL,FALSE)) ; 

END; 


(j^**^^*********************************) 

(» PASCAL VERSION DER KEYPRESS-FUNKTION *) 
(* FUNKTIONIERT GGF. NICHT MIT EXTERNER *) 
(* KONSOLE BZW. 80 ZEICHEN-KARTE *) 


FUNCTION KEYPRESS(*:BOOLEAN»); 

TYPE BYTE=0..255; 

PA=PACKED ARRAY[0..1] OF BYTE; 

VAR MEMREF:RECORD CASE BOOLEAN OF 
TRUE:.(ADDR:INTEGER); 

FALSE:(BYTE: A PA); 

END; 

RPTR,WPTR,KEYBD:BYTE; 

BEGIN 

MEMREF.ADDR:=-16384; (»KEYBOARD INPUT PORT*) 
KEYBD:=MEMREF.BYTE A [ 0 ]; 

MEMREF.ADDR:=-16616; (»PUFFERZAEHLER») 
RPTR:=MEMREF.BYTE A [0]; (»INPUT *) 

WPTR:=MEMREF.BYTE*[1]; (»OUTPUT») 

KEYPRESS:=(KEYBD > 127) OR (RPTR <> WPTR); 


END; 

BEGIN (»HAUPTPROGRAMM*) 

CR:=CHR(13); (»ctl-M») 

BS:=CHR(8); (»ctl-H») 

E0L:=CHR(29); (»ctl-]*) 

E0S:=CHR(11); (»ctl-K») 

BELL:=CHR(7); 

HEXDIGIT:= 1 0123456789ABCDEF'; 


END. 
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Allen W. Todd 


Aufbau eines Pascal- 
Disk-Directories 


Haben Sie schon einmal versucht, von einem Programm aus auf das Datei¬ 
verzeichnis einer Pascal-Diskette (Directory) zuzugreifen? Das ist eigentlich 
ganz einfach, wenn man zwei Dinge weiß: a) wo sich das Directory befindet, 
und b) wie das Directory aufgebaut ist. Die Antwort auf die erste Frage läßt 
sich ziemlich leicht herleiten. Wenn man sich mit dem Filer ein Erweitertes 
Listing einer Diskette ausgeben läßt, stellt man fest, daß die erste Datei bei 
Block 6 beginnt. Damit bleiben die Blöcke 0 bis 5 als wahrscheinlicher Platz 
für das Directory übrig. Tatsächlich liegt das Dateiverzeichnis in den 
Blöcken 2 bis 5; die Blöcke 0 und 1 werden für den zweiten Teil des Bootvor¬ 
ganges benötigt. Die eigentliche Directory-Struktur läßt sich nicht ganz so 
leicht erkennen. Hat man diese jedoch erst einmal herausgefunden, besticht 
sie durch ihren eleganten, gleichzeitig jedoch einfachen, Aufbau. 

Die Struktur eines UCSD-Pascal-Directories wird in den Deklarationen 
von Tabelle 1 dargestellt. Danach besteht ein Pascal-Directory aus 0 bis 77 
Varianten Records des Typs “direntry“. Directory-Einträge werden sequen¬ 
ziell gespeichert und beginnen auf jeder Diskette in Block 2. Jeder Eintrag 
besteht aus einem Varianten Record, der zwei mögliche Varianten hat. Die 
aktuelle Variante wird durch ihr Tag-Feld bestimmt. Bei “direntry“ ist die¬ 
ses Tag-Feld dfkind (filetype). Ist der Dateityp “volume“ oder “secure“, 
handelt es sich bei dem Directory-Eintrag um Informationen, die die gesam¬ 
te Diskette betreffen. Dieser Eintrag ist der erste Directory-Eintrag (direntry 
[0]) und enthält die in Tabelle 2 aufgelisteten Informationen. 

Wie man diese Informationen benutzen kann, zeigt Ihnen die FUNC¬ 
TION “getdirectory“ in dem nachstehenden Programmlisting. Diese Funk¬ 
tion versucht, das Directory von Laufwerk “dunit“ zu lesen. Wenn “getdi¬ 
rectory“ ein Pascal-Dateiverzeichnis auf “dunit“ findet, liefert es einen Zei¬ 
ger auf das Directory und aktualisiert die Stringvariable “vname“, die da¬ 
nach den Namen der gefundenen Diskette enthält. Wird kein Directory ge¬ 
funden oder kann das Directory nicht gelesen werden, so wird dem Zeiger 
der Wert “nil“ zugewiesen und “vname“ nicht aktualisiert. Wenn man fest- 
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stellt, daß ein Directory gelesen wurde, kann man den Zeiger benutzen, um 
auf die gewünschten Directory-Informationen zuzugreifen. 


Tab. 1 


TYPE 


vid 

= String [7] 

fid 

= string [15] 

daterec 

= PACKED RE- 

CORD 


mo : 1 ..12; 
day : 1 ..31; 
year: 0..99; 

END; 

filekind 

= (vol, 


badfile, 


code, 


text, 


info, 


data, 

graf, 

foto, 

secure); 

direntry 

= RECORD 

dfirstblock 

INTEGER; 

dlastblock 

INTEGER; 

CASE dfkind 

filekind OF 

vol, secure : 


(dvid 

vid; 

deovblk 

INTEGER; 

dfilenum 

INTEGER; 

ddummy 

INTEGER; 

dlastboot 

daterec); 


(Diskettenname) 

(Dateiname) 

(Datum-Record, 16 Bits) 


(Eintrag des Diskettenna¬ 
mens) 

(Datei mit defekten Disket¬ 
tenblöcken) 

(Codedatei, vom Rechner 
ausführbar) 

(Textdatei, normal lesbar) 
(Informationsdatei, für De¬ 
bugger) 

(Datendatei) 

(Grafische Vektoren) 
(HI-RES-Bild) 

(Nicht benutzt) 


(Erster Dateiblock) 

(Letzter Dateiblock) 
(Dateityp) 

(Variante für Laufwerksein¬ 
trag) 

(Diskettenname) 

(Anzahl der Blöcke) 

(Anzahl der Dateien) 
(Dummy) 

(Datum des letzten Bootvor¬ 
gangs) 
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badfile, code, 
text, info, data, 

graf, foto : (Variante für Dateieinträge) 

(dfid : fid; (Dateiname) 

dlastbyte : 1..512; (EOF-Byte) 

daccess : daterec); (Datum des letzten Zugriffs) 

END; (direntry) 

directory = ARRAY [0..77] O 

direntry; (max. 77 Da¬ 
teien pro Disk) 


Tab. 2 


Feld 

Datentyp 

Typischer Wert 

Erster Block des Disketten¬ 
eintrags 

Integer 

0 

Letzter Block des Disket¬ 
teneintrags 

Integer 

6 

Eintragstyp (filekind) 

Integer 

0 oder 8 

Diskettenname 

String [7] 

“APPLE1“ 

Anzahl der Blöcke auf der 
Diskette 

Integer 

280 

Anzahl der Dateien auf der 
Diskette 

Integer 

0..76 

Dummy (nur zum Platzauf- 
füllen) 

Integer 

0 

Datum des letzten Bootens 

Daterec 

(beliebiges Datum) 


Die übrigen Directory-Einträge enthalten Informationen über die einzelnen 
auf der Disk gespeicherten Dateien. Siehe Tabelle 3. 
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Tab. 3 


Feld 

Datentyp 

Typischer Wert 

Erster Block der Datei 

Integer 

6..279 

Letzter Block der Datei 

Integer 

6..279 

Dateityp (filekind) 

Integer 

1..7 

Dateiname 

String [15] 

“SYSTEM. APPLE 

Anzahl der Bytes im letzten 
Block 

Integer 

512 

Datum der letzten Änderung 

Daterec 

(beliebiges Datum) 


Daten 

Start- 

End- 

Länge Format 

Bemerkungen 


Byte 

Byte 




Marker 

Marker- 

4 

83 

80 

Packed Char. 10 mal, jedes Ele¬ 
ment mit 8 Bytes 

Adressen 

94 

113 

20 

Integer 

10 mal, jedes Ele¬ 
ment mit 2 Bytes 

Auto indent 

114 

115 

2 

Boolean 

Nur Hi-Bit wird 
benutzt 

Filling 

116 

117 

2 

Boolean 

Nur Hi-Bit wird 
benutzt 

Token def. 

118 

119 

2 

Boolean 

Nur Hi-Bit wird 
benutzt 

Linker Rand 
Rechter 

120 

121 

' 2 

Integer 


Rand 

122 

123 

2 

Integer 


Absatzrand 

Befehlszei¬ 

124 

125 

2 

Integer 


chen 

Anfangsda¬ 

126 

127 

2 

Integer 


tum 

Monat 

Tag 

Jahr 

Letzter Zu¬ 

128 

129 

2 

Packed Rec. 

erste vier Bits 
nächste fünf Bits 
letzte sieben Bits 

griff 

Monat 

Tag 

Jahr 

130 

131 

2 

Packed Rec. 

erste vier Bits 
nächste fünf Bits 
letzte sieben Bits 
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PROGRAM DIR; 

TYPE 

pointer = A directory; 
vid = string[7]; 
fid = string[15]; 
daterec = PACKED RECORD 

mo: 1..12; 

day: 1..31; 

year: 0..99; 

END; 

filekind = (vol, badfile, code, text, info, 
direntry = RECORD 

dfirstblock: INTEGER; 
dlastblock: INTEGER; 

CASE dfkind: filekind OF 
vol, secure: (dvid: 

deovblk: 
dfilenum: 
ddumray: 
dlastboot: 

badfile, code, text, info, 
(dfid: 
dlastbyte: 
daccess: 

END; 

directory = ARRAY[0..77] OF direntry; 


data, graf, foto, secure 


vid; 

INTEGER; 

INTEGER; 

INTEGER; 
daterec); 
data, graf, foto: 
fid; 

1..512; 
daterec) 


dirptr: A directory; 

I, device: INTEGER; 
volname: String; 

FUNCTION getdirectory ( dunit: INTEGER; VAR vnarae: string):pointer; 
BEGIN 

getdirectory:=NIL; 
new(dirptr); 

(*$I-*) 

unitread (dunit,dirptr A ,sizeof(directory),2); 

(*$I+*) 

IF ioresult = 0 

THEN WITH dirptr A [0] DO 
BEGIN 

IF (dfkind IN [vol,secure]) 

AND (dfirstblock=0) 

AND (dlastblock=6) 

THEN 

BEGIN 

vname:=dvid; 
getdirectory:=dirptr; 

END; 

END; (*with*) 

END; (*getdirectory*) 




BEGIN (*Hauptprograram*) 

write('Directory von welchem Laufwerk lesen: '); 
readln(device); 

IF getdirectory(device,volname)=NIL 
THEN writeln('Directory nicht gefunden') 

ELSE BEGIN 

writeln(volname,':'); 

FOR I:- 1 TO dirptr A [0].dfilenum DO 
WITH dirptr A [I], daccess DO 
BEGIN 

WHILE length(dfid)<15 DO dfid:=concat(dfid,' '); 
writeln(dfid,dlastblock-dfirstblock:4, 

rao:4,'/',day:2,'/',year:2,dfirstblock:5); 

END; 

END; 

END. 


154 


Alan J. Nayer 


Der Textdatei-Kopf 


Viele Benutzer des APPLE-Pascal-Betriebssystems und der Sprache Pascal 
sind mit dem Format vertraut, in dem Textdateien gespeichert werden. Be¬ 
sonders diejenigen unter Ihnen, die Programme geschrieben oder den Editor 
zur Text Verarbeitung benutzt haben, werden mit dem grundsätzlichen Auf¬ 
bau von Textdateien vertraut sein. 

Dieses Kapitel setzt ein allgemeines Wissen über das Textdatei-Format 
und Kenntnisse über die “Environment*‘-Parameter des Pascal-Editors vor¬ 
aus. Zur Auffrischung Ihrer Kenntnisse schlage ich vor, sich den kurzen Ab¬ 
schnitt über Textdateien im “APPLE Pascal Operating System Reference 
Manual“ (S.266 in der aktuellen Ausgabe) durchzulesen. Das Handbuch be¬ 
schreibt allerdings nicht, wie die Textdatei-Kopfseite aufgebaut ist; ich 
möchte daher im folgenden etwas näher darauf eingehen. 

Textdateien bestehen aus sog. Seiten, wobei eine Seite zwei aneinander¬ 
grenzende Diskettenblocks enthält; da ein Block 512 Bytes umfaßt, ent¬ 
spricht dies 1024 Bytes. Textdateien bestehen immer aus einer ganzen Anzahl 
von Seiten, sie setzen sich daher auch immer aus einer geraden Block-Anzahl 
zusammen. Die erste Seite ist der Textkopf, der fast vollständig leer ist und 
vom Betriebssystem mit binären Nullen gefüllt wird: Tatsächlich enthält nur 
rund ein Achtel des Textkopfes sinnvolle Informationen. 

Diese Daten machen das “Environment“, die Umgebung der Textdatei, 
aus. Man kann sie sich mit dem S(et-Befehl des Editors ansehen und auch 
verändern. Eine Liste dieser Daten finden Sie in Abb.l. 

Die ersten signifikanten Daten beginnen bei Byte 4. (Beachten Sie bitte: 
alle Offsets werden von Byte Nr.O an gezählt, Byte 4 ist damit tatsächlich das 
fünfte Byte der Kopfseite.) An dieser Stelle werden die zehn Marker gespei¬ 
chert, die von 0 bis 9 durchnummeriert sind und dazu dienen, bestimmte 
Stellen der Textdatei zu markieren. Sie werden hintereinander gespeichert; 
der Name von Marker 0 reicht von den Bytes 4 bis 11, der Name von Marker 
1 von 12 bis 19 usw. Die Marker werden vom Editor aus eingegeben und auf 
acht Stellen gestutzt oder mit Leerzeichen aufgefüllt, so daß der Name acht¬ 
stellig wird. 

Der Editor verbindet jeden Marker-Namen mit einer bestimmten Byte- 
Adresse, auf die der Cursor gesetzt wird, wenn man den entsprechenden 
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Marker eingibt. Wenn beispielsweise der Cursor beim Setzen eines Markers 
am Anfang der Textdatei steht, ist eins die zugehörige Marker-Adresse. Die 
Marker-Adressen werden als 2-Byte Integer-Zahlen beginnend bei Byte 94 
des Textkopfes gespeichert. Erwartungsgemäß bezieht sich die erste Marker- 
Adresse auf den ersten Marker-Namen (Bytes 4 bis 11) usw. 

Unmittelbar auf die Marker-Adressen folgen drei Worte mit Booleschen 
Daten. Von diesen drei Worten ist jedoch nur jeweils das höchstwertige Bit 
signifikant. Mit diesen drei Booleschen Werten werden die Zustände der 
Optionen “Auto Indent“, “Filling“ und “Token“ dargestellt. 

Die nächsten drei Felder enthalten Integer-Zahlen, die die Textgrenzen 
bestimmen: linker Rand, rechter Rand und Absatzrand. Das Befehlszeichen 
wird in den nächsten beiden Bytes im ASCII-Format gespeichert. 

Die letzten beiden Einträge sind Kalenderdaten: zuerst das Datum der 
Textdatei-Entstehung, danach das Datum der letzten Änderung. Beide Da¬ 
ten werden vom Betriebssystem anhand des aktuellen Diskettendatums fest¬ 
gelegt und sind in einem extrem verdichteten Format abgelegt, das im ganzen 
Betriebssystem Verwendung findet. Der Monat, Tag und das Jahr werden in 
den ersten vier, nächsten fünf und letzten sieben Bits eines Wortes gespei¬ 
chert. 

Listing Nr.l enthält ein Programm mit dem Namen TEXTINFO, das die 
Textkopfseite einer beliebigen Textdatei abfragt und die dort enthaltenen 
Daten auf dem Bildschirm und/oder einem Drucker ausgibt. 
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Daten Start- 

Byte 

End- 

Byte 

Länge 

Format 

Bemerkungen 

Marker 4 

Marker- 

83 

80 

Packed Char 

10 mal, jedes Ele¬ 
ment mit 8 Bytes 

Adressen 94 

Auto in- 

113 

20 

Integer 

10 mal, jedes Ele¬ 
ment mit 2 Bytes 

dent 114 

115 

2 

Boolean 

Nur Hi-Bit wird 
benutzt 

Filling 116 

117 

2 

Boolean 

Nur Hi-Bit wird 
benutzt 

Token def. 118 

Linker 

119 

2 

Boolean 

Nur Hi-Bit wird 
benutzt 

Rand 120 

Rechter 

121 

2 

Integer 


Rand 122 

123 

2 

Integer 


Absatzrand 124 
Befehlszei¬ 

125 

2 

Integer 


chen 126 

Anfangsda¬ 

127 

2 

Integer 


tum 128 

Monat 

Tag 

Jahr 

Letzter Zu¬ 

129 

2 

Packed Rec. 

erste vier Bits 
nächste fünf Bits 
letzte sieben Bits 

griff 130 

Monat 

Tag 

Jahr 

131 

2 

Packed Re¬ 
cord 

erste vier Bits 
nächste fünf Bits 
letzte sieben Bits 

Abb.l Die im Textkopf einer 

Pascal-Textdatei gespeicherten Daten 


Ich versuchte dann, die BLOCKREAD-Funktion zum Einlesen der Text¬ 
kopfdaten zu verwenden, mit zufriedenstellendem Ergebnis. Da mit 
BLOCKREAD nur auf Einheiten, die mindestens einen vollen 512-Byte- 
Block umfassen, zugegriffen werden kann, mußte an die HEADER- 
Definition FILLER3 angehängt werden, um die Datenstruktur auf die erfor¬ 
derliche Größe zu bringen. 
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Nebenbei sei erwähnt, daß die Methode, mit der der Output wahlweise 
auf den Bildschirm oder auf den Drucker geschickt wird, auch in vielen an¬ 
deren Anwendungen nützlich sein kann. Diese Aufgabe wird von der Proze¬ 
dur WRITEINFO gelöst, die nur eine Datei, nämlich das als “interactive“ 
deklarierte OUTPUTFILE, benutzt. Der dieser Prozedur übergebene Para¬ 
meter ist ein String: “CONSOLE:“ oder “PRINTER:“ - damit ist es mög¬ 
lich, den Output auf das jeweils gewünschte Gerät zu schicken. 

Für diejenigen Leser, die den Pascal-Editor häufig zur Textverarbeitung 
verwenden, kann ein Ausdruck der Environment-Informationen ihrer Text¬ 
dateien (insbesondere der Kalenderdaten und Randbegrenzungen) recht 
nützlich sein. 

Das Programm benötigt den Namen der Textdatei (das Suffix .TEXT 
wird automatisch vom Programm erzeugt) und die Angabe des Ausgabege¬ 
rätes; der Output kann auf den Bildschirm, den Drucker oder auch auf beide 
Geräte geschickt werden. Beantwortet man die Frage nach der Textdatei 
oder dem Ausgabegerät mit einem einfachen Carriage-Return, wird das Pro¬ 
gramm vorzeitig beendet. 

Die Ausgabe auf den Bildschirm oder den Drucker erfolgt im wesentli¬ 
chen im gleichen Format. Abb.2 zeigt zwei Beispiele. Das erste Beispiel zeigt 
Daten, die aus der Kopfseite eines Pascal-Programms rekonstruiert wurden, 
in der weder die Umgebung (Environment) noch irgendwelche Marker fest¬ 
gesetzt wurden. In diesem Fall werden Standardparameterwerte eingetragen. 
Das zweite Beispiel zeigt Daten, die von einer Datei stammen, das ich zur 
Textverarbeitung benutzt hatte. Es handelt sich dabei, genauer gesagt, um 
diesen Artikel, den ich mit dem Pascal-Editor geschrieben habe. Einige der 
Umgebungsparameter wurden geändert und zwei Marker definiert. 


Text File: #5:tf.TEXT 


Auto Einr.= True Fuellen = False 

Token def = True ßefehls-Z. = A 

Linker Rand.= 0 Recht. Rand = 78 

Absatzrand = 5 

Erstellungsdatum = 8-Mrz-82 
Letzte Aktualisierung = 13-Mai-85 

Marker Name Markeradresse 
Keine Marker 


Abb. 2 Bildschirm-/Drucker-Ausgabe des TEXT_INFO- Programms 
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Ich glaube, daß sich das Programm im großen und ganzen selbst erklärt. 
Ein paar Dinge bedürfen vielleicht noch einer näheren Erläuterung: Der 
Pascal-Record-Typ HEADER enthält die im ersten Block des Textkopfes ge¬ 
speicherten Daten. FILLER1 und FILLER2 werden dazu benutzt, die nicht 
benötigten Bereiche zu überspringen. FILLER§ dient einzig und allein dem 
Zweck, mit Hilfe der BLOCKREAD-Funktion auf die Textkopf-Daten zu¬ 
zugreifen. Der Grund für die Wahl dieser Funktion muß wohl noch extra er¬ 
läutert werden. 

Ich hatte versucht, die Daten in den HEADER-Record einzulesen, ohne 
die FILLER3-Definition (Länge 132 Bytes) zu benutzen, indem ich eine Da¬ 
tei vom Typ HEADER deklarierte und dann probierte, auf den ersten Re¬ 
cord mit einem GET-Befehl zuzugreifen. Die in dieser Form gelesenen Daten 
stammten jedoch immer aus der zweiten Seite der Textdatei, also aus dem 
Bereich, der bereits den eigentlichen Text beinhaltet. Es hat den Anschein, 
daß das Betriebssystem eine Textdatei als solche erkannte, obwohl in der De¬ 
klaration als Dateityp HEADER und nicht TEXT angegeben wurde. 
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(*— 



—*) 

(* 

LISTING01: TEXT INFO 


*) 

(* 



*) 

(* 

Dieses Programm untersucht den Dateikopf 

von Pascal Text 

*) 

(* 

Files und gibt die Filepararaeter auf auf Drucker oder 

*) 

(* 

Bildschirm aus. 


*) 

(* 



*) 

(* 

Programmiert von Alan J. Nayer 

September 1981 

*) 

(*— 



—*) 


PROGRAM TEXT_INFO; 


TYPE DATE= 

PACKED RECORD 


MONTH 

0..12; 

DAY 

0..31; 

YEAR 

0..100; 

END; 


HEADER= 



PACKED RECORD 
FILLER1 
MARKER 
FILLER2 
MARKER_ADDR 
AUTO_INDENT 
FILLING 
TOKEN_DEF 
LEFTMARGIN 
RIGHTMARGIN 
PARA_MARGIN 
COMMAND_CH 
DATE_CREATED 
DATE UPDATED 


FILLER3 

END; 


(* Format des Pascal Datums *) 


(* Format des Pascal Textkopf-Blocks *) 

PACKED ARRAY[0..3] OF CHAR; 

PACKED ARRAY[0..9,0..7] OF CHAR; 

PACKED ARRAY[0..9] OF CHAR; 

PACKED ARRAY[0..9] OF INTEGER; 

PACKED ARRAY[0..15] OF BOOLEAN; 

PACKED ARRAY[0..15] OF BOOLEAN; 

PACKED ARRAY[0..15] OF BOOLEAN; 

INTEGER; 

INTEGER; 

INTEGER; 

CHAR; 

DATE; 

DATE* 

(* Mit FILLER3 wird der HEADER-Record *) 

(* fuer BLOCKREAD auf die Groesse von *) 

(* 512 Bytes gebracht. *) 

PACKED ARRAY[0..379] OF CHAR; 


VAR TEXT_HDR 

IN_FILE_NAME 

MONTH__NAMES 

CR, FF, CLEAR_EOL, BEL, 


: HEADER; 

: STRING; 

: STRING[36]; 
NUL,DESTINATION 
: CHAR; 


GOOD__DEST, SCREEN, PRINTER 

: SET OF CHAR; 


(*■ 


-*) 


PROCEDURE INITIALIZATION; 

BEGIN 

CR:=CHR(13); 

FF:=CHR(12); 

CLEAR_E0L:=CHR(29); 

BEL:=CHR(7); 

NUL:=CHR(0); 

MONTH_NAMES: = f JanFebMrzAprMaiJunJulAugSepOktNovDez'; 
SCREEN:=[ , S , , , B l , , s , , , b']; 
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PRINTER:=[ , P , ,*B , , , p , , , b f ]; 

GOOD__DEST: =SCREEN+PR INTER 
END; (*initialization*) 

PROCEDÜRE GET_INPUT_FILE; 

VAR TFILE : FILE; (* Behandelt man ein Textfile als typfreies *) 

(* File, dann kann man den Kopfblock lesen *) 

NUM_BLOCKS : INTEGER; 

GOOD__FILE : BOOLEAN; 

BEGIN 

VRITELN(FF, 1 TEXT INFO 1 ); 

REPEAT (* Bis Datei erfolgreich gelesen ist *) 

.G0T0XY(0,5); 

WRITE('Name des Textfiles (.TEXT wird angehaengt): f ,CR,CLEAR_EOL); 

READLN(IN_FILE_NAME); 

IF IN_FILE_NAME= T ' THEN EXIT(PROGRAM) ELSE 
(* Mit <RET> wird Programm verlassn *) 

IN_JTLE_NAME: =C0NCAT(IN_FILE_NAME, * .TEXT 1 ); 

G0T0XY(0,23); 

(*$I-*) 

RESET (TFILE, IN_FILE_NAME); 

GOOD_FILE:=I0RESULT=0; 

IF NOT GOOD__FILE THEN WRITE(INJFILE__NAME, 1 nicht gefunden. 1 , 

CLEAR_E0L,BEL) ELSE 

BEGIN (* Wenn File erfolgreich eroeffnet, versuchen 

(* ersten Kopfblock zu lesen. 

NUM BLOCKS;=BLOCKREAD(TFILE,TEXT HDR,1); 

(*$I+*) 

IF (NUM_BL0CKS<>1) OR (IORESÜLTOO) THEN 
BEGIN 

WRITE(IN_FILE_NAME, 1 nicht lesbar. *,BEL,CLEAR_EOL); 

EXIT(PROGRAM) 

END ELSE WRITE(IN_FILE__NAME,' geoeffnet und gelesen 1 ,CLEAR_EOL); 

CLOSE(TFILE,LOCK) 

EI^D 

UNTIL GOOD__FILE 
END; (^get^nput^file*) 

PROCEDÜRE GETJOUTPUTJILE; 

BEGIN 

G0T0XY(0,10); 

WRITE ( f Ausgabe auf:'); 

WRITELN( , S(chirm, P)rinter oder B)eide f ); 

WRITELN; 

WRITECIhre Wahl: *); 

REPEAT 

READ(KEYBOARD,DESTINATION); 

IF E0LN(KEYBOARD) THEN EXIT(PROGRAM) 

UNTIL DESTINATION IN G00D__DEST; 

WRITE( DESTINATION) 

END; (*get_output_file*) 

PROCEDÜRE T_0R_F(BOOL;BOOLEAN; VAR TR_FL:STRING); 

BEGIN 

IF BOOL THEN TR__FL; = 'True 1 ELSE TR_FL:= , False* 

END; (* t_or_f *) 
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* * 


PROCEDURE CONV_DATE(DATE_PARAM:DATE; VAR EXPANDEDJJATE:STRING); 

VAR S1,S2,S3 : STRING[3]; 

BEGIN 

WITH DATE_PARAM DO 
BEGIN 

STR(DAY,S1); 

STR(YEAR,S3)j 

S2:=COPY(MONTH_NAMES,M0NTH*3-2,3); 

EXPANDED_DATE:=CONCAT(Sl,,S2,,S3) 

END 

END; (*conv_date*) 

PROCEDURE WRITE_INFO(OUT_FILE_NAME:STRING); 

VAR OUTPUT_FILE : INTERACTIVE; (* Diesem File wird entweder 

(* CONSOLE: oder PRINTER: zugewiesen 

STRNG1,STRNG2 : STRING; 

MARKERJNUM ; INTEGER; 

BEGIN 

REWRITE(OUTPUT_FILE,OUT_FILE_NAME); 

IF OUT_FILE_NAME='CONSOLE:' THEN WRITELN(OUTPUT_FILE,FF); 
WRITELN(OUTPUT_FILE,'Text File: ':20,IN_FILE_NAME,CR,CR); 

WITH TEXTHDR DO 
BEGIN 

T_OR_F (AUTO_INDENT[0].STRNGl); 

T_OR_F(FILLING[0],STRNG2); 

WRITELN(OUTPUT_FILE,'Auto Einr.= STRNGl, 

’Fuellen = ':16,STRNG2); 

T_0R_F(T0KEN_DEF[0].STRNGl); 

WRITELN(OUTPUT_FILE, 'Token def = STRNGl, 

’Befehls-Z. = ':22,C0MMAND_CH,CR); 

WRITELN(OUTPUT_FILE,'Linker Rand = ',LEFT_MARGIN:2, 

'Recht. Rand = ':22,RIGHT_MARGIN:2); 

WRITELN(OUTPUT FILE,'Absatzrand = ':26,PARA_MARGIN,CR); 

C0NV_DATE(DATEJ3REATED,STRNGl); 

CONV_DATE(DATE_UPDATED,STRNG2); 

WRITELN(OUTPUT_FILE,'Erstellungsdatum = '.STRNGl,CR, 

'Letzte Aktualisierung = ',STRNG2,CR); 

WRITE(OUTPUT_FILE,'Marker Name':16,'Markeradresse ’:19); 

(* Ist das erste Byte des Markernamens *) 

(* chr(O), dann ist der Marker leer. *) 

IF MARKER[0,1]=NUL THEN WRITE(OUTPUT_FILE,CR, 

'Keine Marker ':27) ELSE 

FOR MARKER_NUM:=0 TO 9 DO 

IF MARKER[MARKER_NUM,l]ONUL THEN 

WRITE(OUTPUT_FILE,CR,MARKER_NUM:3,MARKER[MARKER_NUM]:12, 
MARKER_ADDR[MARKER_NUM]:14) 

END; 

IF OUT_FILE_NAME='PRINTER:' THEN WRITELN(OUTPUT_FILE,CR,CR) 

END; (* write_info *) 

BEGIN (* Hauptprogramm *) 

INITIALIZATION; 

GET_INPOT_FILE; 

GET_OUTPUT_FILE; 

IF DESTINATION IN SCREEN THEN WRITE_INFO('CONSOLE:'); 

IF DESTINATION IN PRINTER THEN WRITE_INFO('PRINTER:’); 

END. 
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* * 


David Geddes 


Das Pascal-Datum 


Haben Sie schon einmal versucht, die Kalenderinformationen von Disketten 
zu aktualisieren, auf die mit einem Turnkey-System (SYSTEM.STARTUP) 
zugegriffen wird? Normalerweise muß man dazu den Filer aufrufen und das 
aktuelle Tagesdatum eingeben, bevor man das Programm benutzt. Die Ver¬ 
wendung eines Turnkey-Systems, also eines Programmsystems, das beim 
Einschalten des Rechners betriebsbereit ist, wird dadurch natürlich verhin¬ 
dert. Außerdem muß der Filer auf der Diskette vorhanden sein. 

Als ich versuchte, dieses Problem zu bewältigen, suchte ich im Betriebs¬ 
system herum und schrieb bei dieser Gelegenheit die in sich abgeschlossene 
PROCEDURE GETDATE (s. Listing Nr.l). Das Programm DATEDEMO 
zeigt, wie man GETDATE in einem Turnkey-Programm benutzen kann. 
Wenn man sie in das SYSTEM.STARTUP-Programm einbaut, kann man 
mit ihr bei jedem Booten der Diskette das Tagesdatum eingeben. 

GETDATE sieht zunächst nach dem auf der Diskette gespeicherten Da¬ 
tum und fragt, ob es geändert werden soll. Das neue Datum kann genau wie 
mit dem Filer eingegeben werden; der einzige Unterschied ist, daß man den 
Monat auch als Zahl angeben kann. Wenn der Benutzer eine Änderung ein¬ 
gibt, wird sowohl das Diskettendatum als auch das im Speicher befindliche 
Datum entsprechend aktualisiert, damit neu angelegte Dateien gleich das ge¬ 
änderte Datum erhalten. Das Datum (aktualisiert oder nicht) wird von GET¬ 
DATE als variabler Parameter in Stringform übergeben (vgl. den Prozedur¬ 
kopf von GETDATE). Die CONST DATELOC (Speicheradresse für das 
Datum) bezieht sich auf Version 1.1. Wenn Sie Version 1.0 verwenden, müs¬ 
sen Sie DATELOC in -22254 umändern. 

Sie sollten vorsichtig sein, wenn Sie diese Prozedur zuerst ausprobieren. 
Testen Sie sie nur mit Disketten, die Sie vorher kopiert haben, da schlimme 
Dinge mit ihnen passieren können, wenn Sie die Prozedur nicht richtig abge¬ 
tippt haben... 

Solche Programmieraufgaben werden allerdings durch PASCAL-ZAP 
von Philip Ender (vgl. gleichnamiges Kapitel in diesem Buch) erleichtert. 
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£********^**=M^**************************j|c**) 

(* Listing #1: Demoprogramm fuer GETDATE *) 
(* *) 
(* Von: David Geddes and Ron DeGroat *) 

(* Mai 1981 *) 

^******^***************3jc***)jc«*5}c*3{:4:****5jc******) 


PROGRAM DATEDEMO; 
VAR DATE;STRING; 


PROCEDURE GETDATE(VAR DATE;STRING); 

(* Liest Datum und ermoeglicht Aenderung aehnlich *) 
(* der D(ate—Option des SYSTEM.FILERs. Ira Vari- *) 
(* ablenparameter wird das Datum in Form eines *) 
(* Strings zurueckgegeben. *) 


CONST M0NTHS='**JanFebMrzAprMaiJunJulAugSepOktNovDez'; 

DATEL0C=-21992; (* -22254 fuer Version 1.0 *) 

TYPE DATEREC = PACKED RECORD 
MM : 0..12; 

DD : 0..31; 

YY : 0..99; 

END; (*daterec*) 

MEMDATEREC = RECORD CASE INTEGER OF 
1:(DATE; A DATEREC); 

2;(LOC : INTEGER); 

END; (*raemdaterec*) 

VAR DISKBLK2:RECORD 

XXX ; PACKED ARRAY[0..19] OF CHAR; 
VOLDATE : DATEREC; 

ZZZ ; PACKED ARRAY[22..511] OF CHAR 
END; 


NEWDATE ;DATEREC; 

ME>DATE ; MEMDATEREC; 

DD,MM,YY ;INTEGER; 

CHANGE :STRING; 

DONE ;BOOLEAN; 


FUNCTION INT(NUM:STRING);INTEGER; 

(* Konvertiert String in Integerwert, funktioniert *) 
(* nur bei positiven Werten. *) 

VAR I,X;INTEGER; 

3EGIN (*int*) 

X:=0; 

FOR I;=l TO LENGTH(NUM) DO 

X:=10*X+(0RD(NUM[I])-0RD(’0 f )); 

INT:=X; 

END; (*int*) 
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PROCEDURE CHANGEDATE; 

(* Aendert Datum entsprechend den Angaben des Benutzers *) 

CONST UCM0NTHS= 1 **JANFEBMARAPRMAYJUNJUUUGSEPOCTNOVDEC 1 ; 
LCMONTHS = , **janfebmaraprraayjunjulaugsepoctnovdec'; 

VAR DASH:INTEGER; 

MONPART:STRING; 

NEWDATE:DATEREC; 

PROCEDURE SETDATE; 

(* Schreibt Datum auf Diskette und in Arbeitsspeicher *) 
BEGIN 

DISKBLK2.VOLDATE:=NEWDATE; 

UNITWRITE(4,DISKBLK2,512,2,0); 

MEMDATE.LOC:=DATEL0C; 

MEMDATE.DATE*:=NEWDATE; 

END; (*setdate*) 


BEGIN (*changedate*) 
(* Tag aendern? *) 


DASH:=P0S( ' -',CHANGE); 

CASE DASH OF 
0:DD:=INT(CHANGE); 

1:DD:=DISKBLK2.VOLDATE.DD; 

2,3:DD:=INT(COPY(CHANGE,1,DASH-1)); 
END; 

IF (DD<1) OR (DD>31) OR (DASH>3) 
tü EN NEWDATE.DD:=DISKBLK2.VOLDATE.DD 
ELSE NEWDATE.DD:=DD; 

IF DASH=0 THEN CHANGE: = ” 

ELSE DELETE(CHANGE,1,DASH); 


(* Monat aendern? *) 

DASH:=POS(*- *,CHANGE); 

IF DASH>0 THEN MONPART:=C0PY(CHANGE,1,(DASH-1)) 

ELSE IF LENGTH(CHANGE)>0 THEN MONPART:=CHANGE 
ELSE MONPART:= 1 '; 

CASE LENGTH(MONPART) OF 
0:MM:=DISKBLK2.VOLDATE.MM; 

1,2:MM:=INT(MONPART); 

3:MM:=POS(MONPART,MONTHS) DIV 3+P0S(M0NPART,UCM0NTHS) 
DIV 3+POS(MONPART,LCMONTHS) DIV 3; 

END; 

IF (MM<1) OR (MM>12) 

THEN NEWDATE.MM:=DISKBLK2.VOLDATE.MM 
ELSE NEWDATE.MM:=MM; 

(* Jahr aendern? *) 

IF (DASH>0) AND (LENGTH(CHANGE)>DASH) THEN 
BEGIN 


DELETE(CHANGE,1,DASH); 

YY:=INT(CHANGE) 

END 

ELSE YY:=DISKBLK2.VOLDATE.YY; 

IF (YY<0) OR (YY>99) 

THEN NEWDATE.YY:=DISKBLK2.VOLDATE.YY 
ELSE NEWDATE.YY:=YY; 


SETDATE; (* Auf Disk und im Speicher *) 
END; (*changedate*) 


PROCEDURE GETVOLDATE(VAR DATE:STRING); 

VAR DAY.YEAR:STRING; 

BEGIN 

UNITREAD(4,DISKBLK2,512,2,0); 

WITH DISKBLK2.VOLDATE DO 
BEGIN 

STR(DD.DAY); 

STR(YY.YEAR); 

DATE:=CONCAT(DAY,,C0PY(M0NTHS,3*MM,3),,YEAR); 
END; 

END; (*getvoldate*) 

BEGIN (* Der Kern von GETDATE *) 

REPEAT - 

GETVOLDATE(DATE); 

WRITELN('Heute ist der : ',DATE); (* Diskettendatuin *) 
WRITE('Neues Datum? '); 

READLN(CHANQE); 

D0NE:=(LENGTH(CHANGE)=0); 

IF NOT DONE THEN CHANGEDATE; 

UNTIL DONE; 

GETVOLDATE(DATE); 

END; (»getdate*) 

BEGIN (»datedemo*) 

GETDATE(DATE); 

WRITELN; 

WRITELN(DATE); 

END. (*datedemo*) 
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Chris Wilson 


Verbesserte 

Tastatui^Routine 


Wie Sie sicher wissen, gibt es einige ASCII-Zeichen, die mit der APPLE II- 
Tastatur nicht direkt erzeugt werden können. In der folgenden Tabelle sind 
alle sichtbaren Zeichen des ASCII-Zeichensatzes aufgelistet. Zeichen, die 
(im Gegensatz zu Kleinbuchstaben) nicht von der Tastatur aus eingegeben 
werden können, sind unterstrichen. 


!"#$& '*()*+,/0123456789:;<=>?@ABCDEFGHIJKLMNO 
PQRSTUVWXYZ[\] A __'abcdefghijklmnopqrstuvwxyz{ | } 


Das in diesem Programm beschriebene Tastatur-Treiberprogramm ist eine 
Erweiterung des standardmäßigen Pascal 1.1-Tastaturtreibers. Mit dieser 
Erweiterung kann man nicht nur die zusätzlichen Zeichen direkt von der Ta¬ 
statur aus eingeben, sondern auch die Kleinbuchstaben einfacher ansprechen 
als mit dem Standardtreiber. 

Man kann die Programme ATTACHUD und SYSTEM.ATTACH des 
Pascal 1.1-BIOS-Softwarepakets benutzen, um einen solchen erweiterten 
Treiber zu installieren (vgl. Kapitel Pascal intern in diesem Buch). 

Mein Programm ist eine Adaption des Lazer Systems Input Editor von 
Randy Hyde, der für die Funktion unter DOS und BASIC entwickelt wurde. 

Das Programm filtert die Eingabezeichen heraus, die vom Standardtrei¬ 
ber gelesen werden. Schreiboperationen, Initialisierung und Statusaufrufe 
gehen direkt an den Standardtreiber. 

Zur Steuerung des erweiterten Treibers werden Escape-Sequenzen ver¬ 
wendet. Eine Reihe von Escape-Sequenzen steuert die Eingabe von Sonder- 
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Zeichen, während die restlichen zur Eingabe von Kleinbuchstaben verwendet 
werden können. 

Da der Standardtreiber weiterhin dazu dient, die eigentliche Tastaturab¬ 
frage zu erledigen und den Eingabepuffer abzuarbeiten, muß die Eingabe¬ 
möglichkeit für Kleinbuchstaben über den Standardtreiber mit Ctrl-E einge¬ 
schaltet werden. Beachten Sie, daß Ctrl-E, Ctrl-W, Ctrl-R und Ctrl-T zur 
Steuerung des Standardtreibers benutzt werden. 

Der erweiterte Treiber erlaubt die Verwendung einer Software-Shift- 
Taste und einer Shift-lock-Taste. Man beginnt mit dem Eingabemodus für 
Kleinbuchstaben, sobald man Ctrl-E wie oben erwähnt eingibt. Will man 
jetzt einen Großbuchstaben eintippen, braucht man nur vorher die ESC- 
Taste zu drücken. Ein großes “A“ wird also beispielsweise durch die Tasten¬ 
folge “ESC a“ erzeugt (entsprechend dem “Shift a“ auf einer Schreibma¬ 
schine). Das geht einfacher als mit dem aus zwei Tasten bestehenden “Ctrl- 
W“-Präfix, das man zur Eingabe von Großbuchstaben verwenden muß, 
wenn man den Standardtreiber benutzt. Will man den Shift-lock-Modus be¬ 
nutzen, also fortlaufend Großbuchstaben eingeben, muß man “ESC ESC“ 
tippen. Zum Umschalten auf den Kleinbuchstabenmodus wird dann später 
wieder “ESC ESC“ eingegeben. 

Soviel zur Eingabe von Kleinbuchstaben. Die Escape-Sequenzen werden 
aber auch für die Eingabe gewisser Sonderzeichen benötigt. Hier eine Tabel¬ 
le dieser Zeichen: 


ESC 1 or ! 
ESC 2 or " 
ESC 3 or # 
ESC 7 or ' 
ESC 8 or ( 
ESC 9 or ) 
ESC , or < 
ESC . or > 
ESC - or = 
ESC / or ? 
ESC <space> 


(*chr(124)*) 

(*chr(126)*) 

(*chr(127)*) 

(*chr(96)*) 

(*chr(123)*) 

(*chr(125)*) 

(*chr(91)*) 

(*chr(93)*) 

(*chr(95)*) 

(*chr(92)*) 


->i 

-> 

-> del 
-> ' 

-> ( 

-> ) 

-> [ 

-> ] 

-> 

-> T 

-> ESC 


Da das ESC-Zeichen zur Eingabe dieser Sonderzeichen benötigt wird, wurde 
die Möglichkeit geschaffen, das ESC-Zeichen selbst einzugeben, um Pro¬ 
gramme wie z.B. den Editor zu bedienen. Sie brauchen dazu nur “ESC 
«Leertaste»“ zu tippen. 

Wenn Sie ATTACHUD starten, um das Datenfile für SYSTEM.AT- 
TACH zu erzeugen, beantworten Sie seine Fragen wie folgt: 
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Enter name of attach data file: 

(Name des Anpassungs-Datenfiles:) 

ATTACH.DATA 

Will you ever use the (2000,3FFF hex) HI-Res page? 

(Wird HI-RES-Grafikseite 1 ($2000 bis $3FFF) benutzt?) 

N 

Will you ever use the (4000,5FFF hex) HI-Res page? 

(Wird HI-RES-Grafikseite 2 ($4000 bis $5FFF) benutzt?) 

N 

What is the name of this driver? 

(Wie heißt dieses Treiberprogramm?) 

Hier muß der .PROC-Name des Assembler-Quellfiles angegeben werden. 
Bei Eingabe von «Return» wird das Programm verlassen: 

CONSOLE 

Which Unit numbers should refer to this device driver? 

(Welche Gerätenummern sollen sich auf diesen Treiber beziehen?) 

Unit number (bei «Return» Programmabbruch): 

1 

Do you want this unit to be initialized at boot time? 

(Soll dieses Gerät beim Booten initialisiert werden?) 

Y 

Do you want another unit number to refer to this device driver? 

(Soll sich noch eine andere Gerätenummer auf diesen Treiber beziehen?) 

Y 

Unit number (bei «Return» Programmabbruch): 

2 

Do you want this unit to be initialized at boot time? 

(Soll dieses Gerät beim Booten initialisiert werden?) 

N 

Do you want another unit number to refer to this device driver? 

(Soll sich noch eine andere Gerätenummer auf diesen Treiber beziehen?) 

N 
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Do you want this driver to Start on a certain byte boundary? 
(Soll dieser Treiber bei einer bestimmten Byte-Grenze beginnen?) 
N 


Do you want to attach another driver? 
(Soll noch ein Treiber angepaßt werden?) 
N 
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Die von diesem erweiterten Tastaturtreiber 
unterstuetzten Escape-Sequenzen lauten 
wie folgt : 


ESC 1 or 
ESC 2 or 
ESC 3 or 
ESC 7 or 
ESC 8 or 
ESC 9 or 
ESC , or 
ESC . or 
ESC - or 
ESC / or 


~>i 

-> 

-> del 
-> ' 


(*chr(124)*) 

(*chr(126)*) 

(*chr(127)*) 

(*chr(96)*) 

(*chr(123)*) 

(*chr(125)*) 

(*chr(91)*) 

(*chr(93)*) 

(*chr(95)*) 

(*chr(92)*) 

ESC <space> -> ESC 
ESC ESC -> (* Umschalter fuer Grossbuchstaben-Feststelltaste *) 

ESC a -> A 

: : -> : 

ESC z -> Z 

Zur Installation dieses Treibers wird das Programm 
SYSTEM.ATTACH benoetigt 


-> 

-> 

-> 

-> 

-> 

-> 


T 


INDIRECT 

.EQU 

002 

JVAFOLD 

.EQU 

OEE 

ACJVAFLD 

.EQU 

0E2 


.PROC CONSOLE 


sJMP 

CONCKHDL 


STA 

TEMPI 


STY 

TEMP1+1 


PLA 



STA 

RETURN 


PLA 



STA 

RETURN+1 


TXA 



BEQ 

READ 


CMP 

#1 


BEQ 

WRITE 


CMP 

#2 


BEQ 

INIT 


CMP 

#4 


BEQ 

STATUS 


LDX 

#3 


JMP 

RET 

RETURN 

.WORD 0 

TEMPI 

.WORD 0 

ROUTINE 

.WORD 0 


;SYSTEM.ATTACH patcht die CONCK-Routine so, 
;dass die Einsprungadresse hier liegt 
;Einsprungadresse fuer alle Lese-, Schreib- 
jlnitialisierungs- und Statusaufrufe 

jRuecksprungadresse retten 


;X-Register wird zur Ermittlung des Aufruf- 
;typs verwendet 


;E/A-Befehl existiert nicht 
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READ 

;Code 

fuer Leseoperation 


LDA 

RDRTN+1 ;Stackadresse festhalten, damit die Standard- 


PHA 

jLeseroutone zu READRTN zurueckspringt und man 
;auf diese Weise die Tastaturzeichen ausfiltern 
;kann 


LDA 

PHA 

RDRTN 


LDY 

#1 ;Adressoffset der Standard-Leseroutine 


BNE 

GET1 ;in der von SYSTEM.ATTACH erzeugten Sprung- 

;vektorkopie 

WRITE 

;Code 

fuer Schreiboperation 


LDY 

#4 


BNE 

GET 

INIT 

;Code 

fuer Initialisierungsoperation 


;Zuerst BlOS-Sprungvektor so patchen, dass alle Schreib-, 
jlnitialisierungs- und Statusaufrufe direkt an die Stan- 
jdardkonsolenroutinen geleitet werden. 


LDA 

LDY 

0C08B 

#4 

;Auf Interpreter umschalten 

JSR 

LDY 

FIXUP 

#7 

;Schreiben 

JSR 

LDY 

FIXUP 

#43. 

;Initialisieren 

JSR 

FIXUP 

;Status 


;Jetzt den von SYSTEM.ATTACH erzeugten Patch aufheben, 

;der einen Sprung an den Anfang dieses Treiberprogramms 
; bewirtet. 

LDY #55. ;Original CONCK-Adresse holen 

LDA @ACJVAFLD,Y 

STA INDIRECT 

INY 

LDA @ACJVAFLD,Y 

STA INDIRECT+1 

LDY #0 

LDA #08 ;PHP 

STA @INDIRECT,Y 

INY 

LDA #48 ;PHA 

STA @INDIRECT,Y 

INY 

LDA #8A ;TXA 

STA @INDIRECT,Y 

LDA 0C083 ;BI0S einschalten 

LDY #7 

BNE GET 

STATUS ;Code fuer Status 

LDY #43. 

GET LDA RETURN+1 ;Ruecksprungadresse auf Stack bringen, damit 

;der Standardtreiber direkt zum aufrufenden 
jProgramm zurueckspringt 
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GET1 


FIXUP 


RDRTN 

ESRTN 

CAPSLOCK 

TABLEI 

TABLE2 

TBLSIZE 

READRTN 


CHKLC 


ESCKEY 


PHA 

LDA RETURN 
PHA 


jACJVAFLD enthaelt einen Zeiger auf die von 
;SYSTEM.ATTACH angelegte Kopie des Sprungvektors, 
;die erzeugt wurde, bevor er an diesen Treiber 
;angepasst wurde. 

LDA @ACJVAFLD,Y 
STA ROUTINE 
INY 

LDA @ACJVAFLD,Y 
STA ROUTINE*1 

LDY TEMP1+1 ;Register wiederherstellen 
LDA TEMPI 

JMP @ROUTINE ;Standardtreiber aufrufen 

LDA @ACJVAFLD,Y 
STA @JVAFOLD,Y 
INY 

LDA @ACJVAFLD,Y 
STA @JVAF0LD,Y 
RTS 

.WORD READRTN-1 
.WORD ESCRTN-1 
.BYTE 0 

.ASCII "123789,.-/" 

.ASCII "I" 

.BYTE 022 
.ASCII "#'()<>=?" 

ASCII " " 

!BYTE 07C,07E,07F,060,07B,07D,05B,05D,05F,05C 
.BYTE 07C,07E,07F,060,07B,07D,05B,05D,05F,05C 
.BYTE 01B 


.EQU 

♦-TABLE2 


CMP 

#01B 

;ESC? 

BEQ 

ESCKEY 


LDY 

CAPSLOCK 

;Capslock gesetzt? 

BNE 

CHKLC 


CMP 

#041 

;Nein, GROSSBUCHSTABENMODUS? 

BCC 

RET 


CMP 

#05A+1 


BCS 

RET 


ORA 

#020 

;Ja, Kleinbuchstaben generieren 

JMP 

RET 

CMP 

#061 

jKleinbuchstabe? 

BCC 

RET 


CMP 

#07A+1 


BCS 

RET 


AND 

#0DF 

;Ja, in Grossbuchstaben urawandeln 

JMP 

RET 


LDA 

ESRTN+1 

;ESCRTN auf Stack bringen, damit die Standard- 

PHA 


;Leseroutine nach ESCRTN zurueckspringt 

LDA 

ESRTN 


PHA 

LDY 

#1 
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JMP 

GET1 

ESCRTN 

LDY 

#TBLSIZE 

CONVLOOP CMP 

TABLEI,Y ;Zeichen nach ESC untersuchen, um festzustellen. 


BEQ 

CHANGE ;ob es eines der besonderen Steuerzeichen ist 


DEY 



BPL 

CONVLOOP 


JMP 

NOTSPCL 

CHANGE 

LDA 

TABLE2,Y ;Ja, ersetze es durch das entsprechende Zeichen 


JMP 

RET jaus TABLE2 

NOTSPCL 

CMP 

#01B ;ESC? 


BNE 

NOTESC 


LDA 

CAPSLOCK ;Ja, Capslock umschalten 


EOR 

#0FF 


STA 

CAPSLOCK 


JMP 

READ jNaechstes Zeichen holen 

NOTESC 

CMP 

#061 jKleinbuchstabe? 


BCC 

RET 


CMP 

#07A+1 


BCS 

RET 


AND 

#0DF ;Ja, in Grossbuchstaben urawandeln 

RET 

TAY 

jAkku retten 


LDA 

RETURN+1 jRuecksprungadresse auf Stack, damit 


PHA 

jzur aufrufenden Routine zurueckgesprungen wird 


LDA 

RETURN 


PHA 



TYA 

jAkku wiederherstellen 


RTS 


CONCKHDL 

PHP 

;Prozessorstatus wiederhersteilen 


PHA 



TXA 



PHA 



TYA 



PHA 



CLC 

jCONCK-Adresse holen 


LDY 

#55. 


LDA 

@ACJVAFLD,Y 


ADC 

#6 jWegen des von SYSTEM.ATTACH erzeugten Patches 



;um 6 erhoehen 


STA 

ROUTINE 


INY 



LDA 

@ACJVAFLD,Y 


ADC 

#0 


STA 

ROUTINE+1 


JMP 

@R0UTINE 


.END 
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Paul W. Mosher 


Strukturierter Zu¬ 
griff auf das DOS- 
Directory 


Bei meinem Bemühungen, mich mit Pascal besser zurechtzufinden, war es 
nicht leicht, mit den Programmiermethoden zu brechen, die ich mir im Lau¬ 
fe der Jahre beim Umgang mit BASIC angewöhnt hatte. Wenn ich mir heute 
meine ersten Pascal-Programme ansehe, muß ich zugeben, daß viele von ih¬ 
nen praktisch wörtliche Übersetzungen von Ideen waren, die ich in BASIC 
entwickelt hatte. Besonders das Konzept der “abstrakten Datentypen“ hatte 
es bei mir anfänglich schwer, in meine Sammlung nützlicher Programmier¬ 
techniken aufgenommen zu werden, obwohl gerade dieses Konzept einen der 
Hauptvorteile von Pascal und ähnlichen Sprachen gegenüber den altmodi¬ 
scheren BASIC-artigen Sprachen darstellt. Dieses Problem stellte sich aber 
offensichtlich nicht nur mir, denn viele Pascal-Programme und -Pro¬ 
zeduren, die bisher veröffentlicht wurden, scheinen abstrakte Datentypen 
ebenso zu vermeiden. 

Als Übung für mich selbst und auch als möglicher Grundstock für die 
Entwicklung von in Pascal geschriebenen DOS 3.3-Hilfsprogrammen pro¬ 
bierte ich aus, wie man das VTOC (Volume Table Of Contents; Verzeichnis 
der Sektorbelegung) einer DOS 3.3-Diskette mit Hilfe abstrakter Datentypen 
darstellen kann. Beachten Sie, daß man das Ergebnis des hier abgedruckten 
Programms auch ohne abstrakte Datentypen erzielen kann, so als ob man in 
BASIC programmieren würde. Die Verwendung von Recordstrukturen 
macht jedoch das Programm viel besser verständlich und wahrscheinlich 
auch wesentlich kürzer. Mit neun kurzen Zeilen wird ein Diskettenverzeich¬ 
nis ausgegeben, das freie und belegte Sektoren angibt, und mit einer einzigen 
Anweisung rechnet das Programm aus, wie viele Sektoren auf der Diskette 
noch frei sind. 
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Ein Stück Wirklichkeit 


Abstrakte Datentypen werden mit dem Ziel verwendet, eine abstrakte Dar¬ 
stellung eines Ausschnitts der “Wirklichkeit“ zu erreichen. Im Idealfall wer¬ 
den die Daten im Programm so beschrieben, daß die “Bedeutung“ jedem 
klar wird, der das Programm liest. Im Falle dieses Kapitels besteht die 
“Wirklichkeit“ aus der Folge von 256 Bytes, die in Sektor 0 auf Spur 17 je¬ 
der DOS 3.3-Diskette zu finden sind. Zum besseren Verständnis meiner Be¬ 
schreibung des strukturierten Records lesen Sie am besten die Seiten 132 bis 
133 des DOS 3.3(oder 3.2)-Handbuches. 

Die dort abgebildete Tabelle zeigt Ihnen die Bedeutung der einzelnen 
Bytes des VTOC-Sektors. Wie man sofort sieht, werden mit diesen Bytes 
sehr unterschiedliche Sachverhalte dargestellt. Die Bytes $1 und $2 stellen 
zum Beispiel jeweils eine einzelne Zahl dar, die die Spur bzw. den Sektor an¬ 
gibt, bei dem der Diskettenkatalog beginnt. Im Gegensatz dazu werden die 
Bytes $36 und $37 zusammen als eine einzige Zahl behandelt, die die Byte- 
Anzahl in jedem Diskettensektor angibt. 

Die Bytes $30 bis $33 muß man sich als ein Array aus 32 einzelnen Bits 
vorstellen. Im weiteren Verlauf dieser Tabelle findet man dieses aus 32 Bits 
bestehende Array noch 34 mal (140 Bytes). Es bildet damit die Disk Bit Map 
(Bytes $38 bis $C5). Jedes einzelne Bit des insgesamt 1120 Bit langen Arrays 
stellt einen einzelnen Diskettensektor dar (die Hälfte wird freigelassen). Eine 
Eins zeigt dabei jeweils an, daß der Sektor frei ist, während eine Null einen 
belegten Sektor bezeichnet. Es wäre - gelinde gesagt - unklug, diese 140 Bytes 
als Dezimal- oder Hexadezimalzahlen anzusprechen, da ihre “Bedeutung“ 
in den einzelnen Bits besteht. Aus dem gleichen Grund gibt es keinen Anlaß, 
die Bytes $36 und $37 einzeln anzusprechen, da ihre “Bedeutung“ in einer 
einzelnen Zahl besteht. Mit strukturierten Records versucht man nun, solche 
Sachverhalte aus der “Wirklichkeit“ möglichst genau nachzubilden. 

Wie man dem DOS-Handbuch entnehmen kann, wird die Angelegenheit 
dadurch kompliziert, daß es eine Reihe von Bytes gibt, die “nicht benutzt“ 
werden und über den Sektor verstreut sind. In einem strukturierten Record, 
in dem diese 256 Bytes als VTOC eingelesen und abgebildet werden sollen, 
müssen diese unbenutzten Bytes berücksichtigt werden, damit alles an seinen 
richtigen Platz kommt. 


Darstellung des VTOC als abstrakten Datentyp 

Damit die Beschreibung besser verständlich wird, habe ich das Pascal- 
Programm mit Zeilennummern aufgelistet, auf die ich mich im folgenden 
beziehe (vgl. Listing). Die Aufgabe besteht darin, die 256 Bytes mit Hilfe von 
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Variablen (Komponenten) zu beschreiben, die durch ihren Namen und 
TYPE die Bedeutung des VTOC wiedergeben. 

Wir beginnen (Zeile 9) mit der Definition des Typs “byte“ als Integer- 
Zahl im Bereich 0..255 (Untermenge). Ein aus solchen “Bytes“ bestehendes 
Array würde tatsächlich jeweils zwei Speicher-Bytes je Element belegen, da 
Integer-Zahlen unabhängig vom zugelassenen Wertebereich in zwei Bytes ge¬ 
speichert werden. Das höherwertige Byte würde in diesem Fall nicht benutzt 
werden. Verwendet man jedoch ein PACKED ARRAY oder einen PACKED 
RECORD, dann sorgt das Pascal-Betriebssystem dafür, daß die Variablen 
eines gegebenen Typs so wenig Speicherplatz wie möglich beanspruchen. In 
unserem Fall belegt damit eine Variable vom Typ “byte“ genau ein 
Hauptspeicher-Byte. 

Mit der Definition eines gepackten Records namens “VTOC_structure“ 

in den Zeilen 16 bis 34 belegt eine Variable vom Typ “byte“ genau eine Spei¬ 
cherzelle. Der Record beginnt mit Unused_A (Zeile 17), womit das nicht 

verwendete Byte Nr.$0 am Anfang des VTOC-Sektors dargestellt wird. Die 
nächsten drei Bytes bestehen aus echten Integer-Zahlen des Typs “byte“ und 
haben eigene Namen mit entsprechender Bedeutung (Zeilen 18 bis 20). 

Die beiden nicht benutzten Bytes Nr.$4 und $5 werden durch ein gepack¬ 
tes Byte-Array dargestellt, das natürlich ebenfalls aus zwei Bytes besteht. Ich 
habe mich dazu entschlossen, sie entsprechend ihrer Position im Record zu 
nummerieren; ich hätte aber das Array genauso gut mit der Dimensionierung 
[0..1] wählen können. Beachten Sie, daß dieses gepackte Array mit einer ge¬ 
raden Byte-Nummer im Record beginnt. Ich erwähne das nur, weil das 
Pascal-Betriebssystem mit “Worten“, d.h. Zwei-Byte-Gruppen, arbeitet 
und alle gepackten Arrays bei einer Wortgrenze beginnen müssen, auch 
wenn das bedeutet, daß man ein Byte verschenkt, wenn man eine gepackte 
Datenstruktur in einer anderen deklariert (vgl. Pascal Language Reference 
Manual , S.17,18). 

Das nächste Byte, $6, beinhaltet die Diskettennummer und hat einen ent¬ 
sprechenden Namen (s. Zeile 22). Auf diese Nummer folgt eine Reihe unbe¬ 
nutzter Bytes ($7 bis $26). Ich hatte erst versucht, sie in einem “Packed Ar¬ 
ray [0..31] of Byte“ unterzubringen, aber das ging aus dem gerade genann¬ 
ten Grund schief. Das gepackte Array begann tatsächlich bei Byte Nr.$8; 
Byte Nr.$7 blieb frei, was zur Folge hatte, daß sich die nachfolgenden Spei¬ 
cherplätze um ein Byte verschoben. Ich ging das Problem dann an, indem ich 
Byte Nr.$7 in Zeile 23 einzeln füllte und den Rest mit einem gepackten Array 
auffüllte. Das wollte aber ebenfalls nicht klappen. 

Wenn man ein gepacktes Array mit einer ungeraden Byte-Anzahl dekla¬ 
riert und bei einer Wortgrenze beginnt, dann endet das Array in der Mitte ei¬ 
nes Wortes. Das Betriebssystem weist dann den Rest dieses Wortes dem Ar¬ 
ray zu und ruft damit ein ähnliches Problem hervor wie oben beschrieben 


177 


(vgl. APPLE Pascal Language Reference Manual , S.16). Des Rätsels Lö¬ 
sung besteht darin (Zeilen 24 und 25), das Array nur mit 30 Bytes Länge und 
das 32. Byte getrennt zu deklarieren. Von hier an bis $30 gibt es dann keine 
weiteren Schwierigkeiten. 

Die bei Position $30 beginnenden vier Bytes enthalten 32 einzelne Bits, 
und nicht etwa Zahlen. Wir brauchen hier also eine andere Methode, vier 
Bytes zu beschreiben, mit der man gleichzeitig auf 32 Bits zugreifen kann. 

Die “Bit Map“ für jeden Sektor einer Diskettenspur enthält ein Bit pro 
Sektor plus 16 unbenutzte Bits (vgl. S.133 unten des DOS-Handbuches). Alle 
Bit Maps zusammen ergeben die Bit Map für die gesamte Diskette. Ich defi¬ 
nierte ein einzelnes Sector_bit (Zeile 10) als einen Variablentyp, der nur 

zwei mögliche Werte annehmen kann: “In_use“ und “Free“. Listet man 

die Namen in dieser Reihenfolge (und nicht etwa: Free, In_use) auf, so wird 

der Wert 0 mit “In_use“ und der Wert 1 mit dem Namen “Free“ verknüpft 

(so wie das auch auf der BASIC-Diskette der Fall ist). 

Jetzt kann man (in Zeile 11) die Bit Map einer ganzen Spur, die 

“Track bit map“, als ein Array aus 32 Sector bits definieren. Genau 

wie der Typ “Boolean“ kann der “Sector_bit“-Datentyp nur zwei Werte 

annehmen, so daß er in einem gepackten Array nur ein Speicherbit Platz be¬ 
nötigt. Das gesamte Array aus 32 Sector_bits kann so als “Packed Array 

[0..31] of Sector_bit“ deklariert werden, was der Darstellung auf der 

BASIC-Diskette sehr nahe kommt. 

Leider sind die DOS-VTOC-Bytes in der falschen Reihenfolge angeord¬ 
net, so daß das durch “Track_bit_map[6]“ dargestellte Bit in Wirklichkeit 

Sektor Nr. 14 repräsentiert usw. (vgl. DOS-Handbuch S.133 unten). Ich habe 
dieses Problem in meinem Programm dadurch gelöst, daß ich eine 
Abbildungs-FUNCTION implementierte, mit deren Hilfe ich auf die richti¬ 
gen Sektoradressen schließen konnte. Wenn es eine natürlichere oder “ästhe¬ 
tischere“ Deklaration für diese Record-Komponente gibt, bei der die Bits in 
der richtigen Reihenfolge dargestellt werden, dann habe ich sie nicht gefun¬ 
den. Ich bin daher jedem dankbar, der hierfür eine bessere Lösung anbieten 
kann. Das Problem stellt sich wie folgt dar: 


Erste vier Bytes Folgende vier Bytes 

Arrayposition 

: 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 

Dargestellter 

Sektor : 8 9 10 11 12 13 14 15 0 1 2 3 4 5 6 7 
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Die Bits 16 bis 31, die in Byte 3 und 4 stehen, werden natürlich nicht benutzt. 

In Zeile 28 wird der Typ ‘Track_bit_map“ verwendet, um vier Bytes zu 

belegen. 

Die Bytes $34 und $35 in der Beschreibung des DOS-Handbuchs lassen 
sich ohne Schwierigkeiten abbilden und werden in den Zeilen 29 und 30 dar¬ 
gestellt. Die Bytes $36 und $37 sind als einzelne Integer-Zahl zu behandeln 
und bereits in der Reihenfolge gespeichert, in der auch das Pascal-System 
mit Integer-Zahlen umgeht. Aus diesem Grund kann in Zeile 31 die Kompo¬ 
nente “Bytes_per_sec“ als Integer-Zahl definiert werden. 

Bei Byte $38 des Diskettensektors beginnt das Sektorverzeichnis, das die 
nächsten 140 Bytes belegt und angibt, welche Sektoren benutzt sind. Dem¬ 
entsprechend wird in Zeile 12 der Datentyp “Disk_bit_map“ als gepacktes 

Array aus 35 “Track_bit_maps“ deklariert. Mit diesem Datentyp werden 

in Zeile 32 die gesamten 140 Bytes des Sektorverzeichnisses definiert. 


Variablen mit dem neuen Datentyp 

Nun, da der Datentyp “VTOC_structure“ deklariert ist, kann man eine 

Variable dieses Typs definieren (Zeile 42). Diese Variable (VTOC) hat eine 
Größe von 256 Bytes, in die man nun das VTOC einer DOS 3.3-Diskette ein¬ 
iesen kann. Die Komponenten von VTOC werden dann einfach über ihre 
Namen angesprochen (z.B. “VTOC.Volume_number“), ohne daß man ir¬ 

gendwelche Programmiertricks anwenden muß! Mit dem Aufruf der Funk¬ 
tion“ VTOC.bit_map [track, sector]“ können Sie sogar ein einzelnes Bit an¬ 

sprechen. Das wäre allerdings aufgrund der genannten Probleme nicht das 
richtige Bit. Für den korrekten Zugriff benutze ich daher die Funktion 

“Mapping_of“ in den Zeilen 47 bis 52. Durch einen Zugriff wie z.B. 

“VTOC.bit_map [track, mapping_of (sector)]“ erhält man nun das richti¬ 

ge Bit. 


Die Verwendung strukturierter Datentypen 

Das Programm selbst ist nur ein Beispiel für die Benutzung der VTOC- 
Variablen. In den vier Zeilen 58, 59, 65 und 66 wird das VTOC der DOS 3.3- 
Diskette in die VTOC-Variable eingelesen, indem zunächst der Block mit 
Spur 17, Sektor 0 in einem Puffer gespeichert wird (Zeile 65), woraufhin die 
ersten 256 Bytes des Puffers mit MOVELEFT in die Variable VTOC kopiert 
werden (Zeile 66). In den Zeilen 89 bis 98 werden die belegten Sektoren der 
Diskette ausgegeben, während in den Zeilen 103 bis 108 die freien Sektoren 
der Diskette gezählt und angezeigt werden. 
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Program VTOC_READ; 


CONST 

VTOC block 


TYPE 

Sector 

Track 

Byte 

Sector bit 


= 136; (* Untere Haelfte dieses Blocks ist VTOC Sektor *) 


= 0..15; 

= 0..34; 

« 0..255; 

=. (In_use, free); 

Track_bit__map = Packed Array[0..31] of Sector_bit; 
Disk_bit_map = Packed Array[0..34] of Track__bit_jnap; 
Blockbuffer = Packed Array[0..511] of byte; 


VTOC_structure= Packed Record 
Unused__A 
Dir__sec_start 
Dir_Trk_start 
• Dos_Release 
UnusedJB 
Volume_nuraber 
Unused_C 
Unused_D 
Unused_E 
Max_TS_Pairs 
Unused__F 
Mask_bytes 
Tracks_on__disk 
Secs_j>er__track 
Bytes__per_jsec 
Bit_map 
Unused__G 

End; (* VTOC-Struktur *) 


Byte; 

Byte; 

Byte; 

Byte; 

Packed Array [4..5] of byte; 
Byte; 

Byte; 

Packed array [8..37] of byte; 
Byte; 

Byte; 

Packed array [40..47] of byte; 
Track_bit_map; 

Byte; 

Byte; 

Integer; 

Disk_bit_raap; 

Packed array [196..255] of byte; 


VAR 

Unit__nura, 

Block, 

Free_spaces 

Dummy 

VTOC 

Input_buffer 
Sec_num 
Trk num 


Integer; 

Char; 

VTOC__structure; 

Block_buffer; 

Sector; 

Track; 


Function Mapping_of (To_be_mapped : Sector) ; Sector; 
Begin 

If To__be_mapped < 8 

then Mappingjof ;= To_be_mapped + 8 
eise Mapping of := To_be_mapped - 8 

End; 


Begin (* Hauptprogramm *) 

Unit_num := 5; (* Ich habe Laufwerk 2 in Slot 6 fuer die DOS-Diskette 

benutzt. *) 

Block := VTOCJblock; 
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Lies den Block mit dem VTOC-Sektor in den Eingangspuffer und kopiere 
dann die ersten 256 Bytes des Eingangspuffers in die Variable VTOC 

- *> 

Unitread (Unit__num, Input_buffer, 512, Block); 

Moveleft (lnput_buffer[0], VTOC, 256); 


(* - 

Ausgabe diverser VTOC-Informationen 


Writeln( 1 Directory beginnt bei Sekt, 
Writeln('Directory beginnt bei Spur 
Writeln('DOS Version 
Writeln('Diskettennummer ist 
Writeln('Groesste S/S Paarzahl in S, 
Writeln('Anzahl der Diskettenspuren 
Writeln('Anzahl der Sektoren/Spur 
Writeln('Bytes/Sektor 
Writeln('Groesse der "VTOC'-Variab. 
Writeln; 

Write(' « Belegungsplan und freier 
Read(Dummy); Writeln; 


', VTOC.Dir_sec__start ) 
', VTOC.Dir_trk_start ) 
', VTOC.DOS_release ) 
', VTOC.Volurae__nuraber ) 
', VTOC .Max__TS_pairs ) 
', VTOC.Tracks__on_disk) 
', VTOC.Secs_j)er__track) 
', VTOC.Bytes_per_sec ) 
', SIZEOF(VTOC) ) 


Platz auf Tastendruck »'); 


*) 


(*- 

Tabellendarstellung der Diskette, aus der die Sektorbenutzung her-* 
vorgeht 

- *) 

For Sec_num := 0 to 15 do 
begin 

Write(Sec_nura:2,': '); 

For Trk_num := 0 to 34 do 

If VTOC.bit_map[ Trkjnum, Mappin g o f(Sec num) ] = free 
then write('.') 
eise write('*'); 

Writeln; 

end; (* For sec_num - Schleife *) 

Write(' ');For Trkjiura := 0 to 34 do write (Trk__nuin MOD 10);Writeln; 

(*- 

Berechnung und Ausgabe der freien Diskettensektoren 
-*) 

Free__spaces := 0; 

For Trk_num ;= 0 to 34 do 
for Sec_num := 0 to 15 do 

if VTOC.bit_map[Trk_nura, Sec_nura] = free 
then Free_spaces := Free__spaces + 1; 

Writeln (' Freier Diskettenplatz = ', Free_spaces, ' Sektoren'); 

End. 
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Roy Bollinger 


Terminal¬ 
unabhängige Bild¬ 
schirmsteuerung 


Ich bin seit über 18 Jahren im Bereich Software-Entwicklung tätig und habe 
mich insbesondere der Verbesserung von Software-Schnittstellen gewidmet. 
Ich konnte mich daher nicht damit zufrieden geben, daß meinem neuen 
APPLE-Pascal-System die Möglichkeiten zur vollständigen Kontrolle des 
Bildschirmcursors fehlten. Da ich fest davon überzeugt bin, daß der APPLE 
ein exzellenter Rechner ist, wußte ich, daß eine vollständige Cursorsteuerung 
möglich sein mußte - es galt nur noch herauszufinden, wie. 

Beim Lesen des APPLE-Pascal-Handbuches fand ich einen Abschnitt 
mit der Überschrift: 

4.3 SYSTEM RECONFIGURATION: SETUP.CODE 

der auf Seite 240 beginnt. Da die Informationen, die ich dort fand, meiner 
Einschätzung nach alles enthielten, um den APPLE unabhängig von einem 
bestimmten Terminal betreiben zu können, beschloß ich, dort mit meinen 
Nachforschungen zu beginnen. Innerhalb des Abschnitts fand ich auf S.246 
einen Unterabschnitt mit dem Titel: 

4.3.4 VIDEO SCREEN CONTROL CHARACTERS 

Damit war ich beim Kern der Sache, denn hier fand ich alle Bildschirm- 
Kontrollzeichen, die ich suchte. 

Zunächst benutzte ich ein File-Dump-Programm, um die MISCINFO- 
Datei auszudrucken, das von dem Programm SETUP.CODE erzeugt wird. 
Danach startete ich SETUP.CODE und beantwortete jede der Fragen, die ei¬ 
ne numerische Eingabe erfordern, mit aufeinanderfolgenden, positiven 
Integer-Werten, wobei ich bei eins begann. Das so erzeugte MISCINFO-File 
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ließ ich dann durch das Dump-Programm ausdrucken und verglich die Er¬ 
gebnisse mit dem Original-Dump. So konnte ich feststellen, an welcher Stelle 
SETUP.CODE die Antworten in MISCINFO eingetragen hatte. In Tabelle 1 
finden Sie das Ergebnis dieses Vergleiches. 

Danach benutzte ich SETUP.CODE mehrere Male, um die Fragen zu be¬ 
antworten, die die Antworten TRUE/FALSE verlangen. So konnte ich fest¬ 
stellen, wo und wie die Booleschen Variablen in MISCINFO gespeichert 
wurden. Das Ergebnis dieser Arbeit finden Sie ebenfalls in Tabelle 1. 

Mit diesen Informationen bewaffnet entschloß ich mich, eine PASCAL- 
Unit zu schreiben, die dem Programmierer die Möglichkeit gibt, den Bild¬ 
schirmcursor vollständig zu kontrollieren. Diese Unit ist in Listing Nr.l ab¬ 
gedruckt. 

Der Vorteil dieser Unit liegt darin, daß Sie mit ihr den Cursor terminal¬ 
unabhängig von einem Programm aus über das passende MISCINFO-File 
steuern können, ohne die Software dem jeweiligen Terminal anpassen zu 
müssen. Darüberhinaus stehen Ihnen diese Möglichkeiten zur Bildschirm¬ 
steuerung auch unter dem neuen APPLE-FORTRAN-System zur Verfü¬ 
gung. 


Tab. 1 Beschreibung des MISCINFO-Files 


Byte 

Referenz 

Wert 

Beschreibung 

1-62 



Wird von SETUP.CODE offenbar 
nicht benutzt 

63 

4.3.4 246 

0 

Lead-In-Zeichen für Bildschirm 

64 

4.3.4 247 

25 

Cursor-Home-Position 

65 

4.3.4 246 

11 

Löschen bis Zeilenende 

66 

4.3.4 247 

29 

Löschen bis Bildschirmende 

67 

4.3.4 247 

28 

Cursor nach rechts 

68 

4.3.4 247 

31 

Cursor nach oben 

69 

4.3.4 247 

8 

Backspace (Linkspfeil) 

70 



unbekannt 

71 

4.3.4 247 

0 

Zeile löschen 

72 

4.3.4 246 

12 

Bildschirm löschen 

73 

4.3.4 246 


Präfix-Markierungen für Bildschirm- 


Kontrollzeichen 

Bit 0 - Cursor nach oben 

Bit 1 - Cursor nach rechts 

Bit 2 - Löschen bis Zeilenende 

Bit 3 - Löschen bis Bildschirmende 
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Bit 4 - Cursor-Home-Position 
Bit 5 - Backspace 
Bit 6 - Bildschirm löschen 
Bit 7 - Zeile löschen 


74 



unbekannt 

75 

4.3.2 243 

24 

Bildschirmhöhe 

76 



unbekannt 

77 

4.3.2 243 

79 

Bildschirmbreite 

78 



unbekannt 

79 

4.3.3 245 

15 

Taste zur Aufwärtsbewegung des Cur¬ 
sors Ctrl-O 

80 

4.3.3 245 

12 

Taste zur Abwärtsbewegung des Cur¬ 
sors Ctrl-L 

81 

4.3.3 245 

8 

Cursor-Links-Taste Ctrl-H 

82 

4.3.3 245 

21 

Cursor-Rechts-Taste Ctrl-U 

83 

4.3.3 245 

3 

Taste Ctrl-C für Dateiende 

84 

4.3.3 244 

6 

Tastatursperre (Flush) Ctrl-F 

85 

4.3.3 244 

0 

Break-Taste 

86 

4.3.3 244 

19 

Stop-Taste Ctrl-S 

87 

4.3.3 245 

8 

Taste zum Löschen von Zeichen Ctrl-H 

88 

4.3.2 243 

63 

Nicht ausgebbares Zeichen? 

89 

4.3.3 245 

24 

Zeichen zum Löschen einer Zeile Ctrl- 
v 

90 

4.3.3 246 

27 

A 

Editor-Escape-Taste ESC 

91 

4.3.3 244 

0 

Lead-In-Zeichen für Tastatur 

92 

4.3.3 246 

3 

Annahmetaste für Editor Ctrl-C 

93-512 



Wird anscheinend nicht benutzt 
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(*$S+*) 

unit crtutilites; 


interface 

var 

LUNMISCINFO : file; 

procedure CURSORHOME; 
procedure CURSORUP; 
procedure CURSORDOWN; 
procedure CURSORLEFT; 
procedure CURSORRIGHT; 
procedure CLEARSCREEN; 

procedure CLEARLINE(LINENUMBER : integer); 
procedure ERASEOL; 

procedure ERASEOS(LINENUMBER : integer); 

procedure DISPLAY(VTAB,HTAB ; integer; LINEOFTEXT ; string); 
procedure PROMPT(VTAB : integer; PROMPTLINE ; string); 

implementation 

const 

BLOCKSIZE = 512; 
type 

CRTCOMMAND = (LEADIN, UP, RIGHT, ERASEEOL, ERASEEOS, HOME, 

LEFT, CLEARS, CLEARL, DOWN); 

INPUTBUFFER = record 

MISCINFO ; packed array[l..BLOCKSIZE] of char; 
end; 

var 

LOWERVTAB, UPPERVTAB, 

LOWERHTAB, UPPERHTAB, 

NUMOFBLOCKS, 

PREFIXCONTROL: integer; (* Variable mit 8 Flags zu je einem Bit, *) 
(* die bestimmt, ob vor dem Bildschirm- *) 
(* befehl der Lead-In Befehl stehen muss *) 
(* oder nicht. *) 

CRTCONTROL : packed array [CRTCOMMAND] of char; 

PREFIXED : packed array [CRTCOMMAND] of boolean; 

INPUTPOINTER: "INPUTBUFFER; 

HEAPPOINTER : "integer; 

procedure CURSORHOME; 
begin 

if PREFIXED[HOME] then 

unitvrite(1,CRTCONTROL[LEADIN],1); 
unitwrite(1,CRTCONTROL[HOME],1); 
end; 

procedure CURSORUP; 
begin 

if PREFIXED[UP] then 

unitwrite(1,CRTCONTROL[LEADIN],1); 
unitwrite(1,CRTCONTROL[UP],1); 
end; 
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procedure CURSORDOWN; 
begin 

if PREFIXED[DOWN] then 

unitwrite(l,CRTCONTROL[LEADIN],1); 
unitwrit e (1,CRTCONTROL[DOWN],1); 
end; 

procedure CURSORLEFT; 
begin 

if PREFIXED[LEFT] then 

unitwrite(1,CRTCONTROL[LEADIN],1); 
unitwrite(1,CRTCONTROL[LEFT],1); 
end; 

procedure CURSORRIGHT; 
begin 

if PREFIXED[RIGHT] then 

unitwrite(l,CRTCONTROL[LEADIN],1); 
unitwrite(1,CRTCONTROL[RIGHT],1); 
end; 


procedure CLEARSCREEN; 
begin 

if PREFIXED[CLEARS] then 

unitwrite(l,CRTCONTROL[LEADIN],1); 
unitwrite(1,CRTCONTROL[CLEARS],1); 
end; 


procedure ERASEOL; 
begin 

if PREFIXEDfERASEEOL] then 

unitwrite(1,CRTCONTROL[LEADIN], 1) ; 
unitwrite(l»CRTCONTROL[ERASEEOL],1); 
end; 

procedure CLEARLINE; 
begin 

if LINENUMBER < LOWERVTAB then 
LINENUMBER := LOWER^AB 
eise if LINENUMBER > UPPERVTAB then 
LINENUMBER := UPPERVTAB; 

G0T0XY(0,LINENUMBER); 

ERASEOL; 

end; 

procedure ERASEOS; 
begin 

if LINENUMBER < LOWERVTAB then 
LINENUMBER := LOWERVTAB 
eise if LINENUMBER > UPPERVTAB then 
LINENUMBER ;= UPPERVTAB; 
if PREFIXED[ERASEEOS] then 

unitwrite(1,CRTCONTROL[LEADIN],1); 
unitwrite(1,CRTCONTROL[ERASEEOS],1) 
end; 
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procedure DISPLAY; 
begin 

if VTAB < LOWERVTAB then 
VTAB s- LOWERVTAB 
eise If VTAB > UPPERVTAB then 
VTAB := UPPERVTAB; 
if HTAB < LOWERHTAB then 
HTAB := LOWERHTAB 
eise if HTAB > UPPERHTAB then 
HTAB := UPPERHTAB; 
GOTOXY(HTAB.VTAB); 

WRITE(OUTPUT,LINEOFTEXT); 
end; 


procedure PROMPT; 
begin 

if VTAB < LOWERVTAB then 
VTAB := LOWERVTAB 
eise if VTAB > UPPERVTAB then 
VTAB := UPPERVTAB; 
GOTOXY(O.VTAB); 
WRITE(OUTPUT.PROMPTLINE); 
ERASEOL; 
end; 


begin (» Unitinitialisierung *) 

RESET(LUNMISCINFO,'»SYSTEM.MISCINFO'); 

MARK(HEAPPOINTER); 

NEW(INPUTPOINTER); 
with INPUTPOINTER* do 
begin 

NUMOFBLOCKS := BLOCKREAD(LUNMISCINFO,MISCINFO,1); 
CLOSE(LUNMISCINFO); 

PREFIXCONTROL := ORD(MISCINFO[73]); 


CRTCONTROL[LEADIN ] 

CRTCONTROL[UP 
CRTCONTROLfRIGHT ] 

CRTCONTROL[ERAS EEOL ] 
CRTCONTROL[ERASEEOS ] 
CRTCONTROL[HOME 
CRTCONTROL[LEFT 
CRTCONTROL[CLEARS ] 

CRTCONTROL[CLEARL ] 

CRTCONTROL[DOWN ] 


MISCINFO[63] 
MISCINFO[68] 
MISCINFO[67] 
MISCINFO[66] 
MISCINF0[65] 
MISCINFO[64] 
MISCINFO[69] 
MISCINF0[72] 
MISCINFO[71] 
CHR(IO); 


PREFIXED[LEADIN ] 

PREFIXED[UP 
PREFIXED[RIGHT ] 

PREFIXED[ERASEEOL ] 
PREFIXED[ERASEEOS ] 
PREFIXED[HOME • ] 

PREFIXED[LEFT 
PREFIXED[CLEARS ] 
PREFIXEDfCLEARL ] 
PREFIXED[DOWN ] 


ODD(PREFIXCONTROL ) 
ODD(PREFIXCONTROL div 2) 
ODD(PREFIXCONTROL div 4) 
ODD(PREFIXCONTROL div 8) 
ODD(PREFIXCONTROL div 16) 
ODD(PREFIXCONTROL div 32) 
ODD(PREFIXCONTROL div 64) 
ODD(PREFIXCONTROL div 128) 
false; 


188 




TOWFRVTAB • = D • 

UPPERVTAB U 0RD(MISCINF0[75]); 
LOWERHTAB := 0; 

UPPERHTAB := ORD(MISCINFO[77]); 
end; 

RELEASE(HEAPPOINTER); 
end. 
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David Lieberman 


Kleinbuchstaben, 
Invers- und Flash- 
Zeichen 


In der März/April-Ausgabe von Call-A.P.P.L.E zeigte Ron DeGroat einen 
raffinierten Patch für SYSTEM.APPLE, mit dem man Kleinbuchstaben un¬ 
ter Pascal verwenden kann, wenn man den Paymar Lower Case Adapter be¬ 
nutzt. Ich sprach mit ihm über diesen Patch und brachte den Einwand vor, 
daß damit die SYSTEM.APPLE-Datei permanent geändert würde. Er er¬ 
wähnt diesen Nachteil auch in seinem Artikel und rät jedem (jeder) Anwen¬ 
derin), sich eine spezielle Diskette mit diesem Patch anzufertigen. 

Nachdem ich mit Ron gesprochen hatte, kam ich auf die Idee, diesen 
Patch in Maschinensprache zu implementieren und die SYSTEM.APPLE- 
Modifikation direkt in der Ram-Card vorzunehmen. Damit ist es nicht mehr 
notwendig, die Diskettenversion dieses Datei zu ändern. Der Patch läßt sich 
daher durch einen einfachen Kaltstart wieder löschen. Wenn Sie den Patch 
bei jedem Start Ihres Pascal-Systems anwenden wollen, können Sie die LCA- 
Prozedur in Ihre SYSTEM-STARTUP-Datei einbauen. 

In Abb.l finden Sie ein Pascal-Programmbeispiel, in dem die LCA- 
Prozedur aufgerufen wird und damit Kleinschreibung ermöglicht. In Abb.2 
finden Sie die Assemblerprozeduren, die den Patch ausführen. Beachten Sie 
bitte: Die Darstellung von “Pseudo-Großbuchstaben“ wird verhindert: 
Wenn der Paymar-Patch benutzt wird, lassen sich Großbuchstaben nach 
Eingabe des Ctrl-R Befehls nicht mehr invertiert darstellen. 

Wenn Sie invertierte oder blinkende Zeichen darstellen wollen, können 
Sie das jedoch mit den in Abb.2 gezeigten Prozeduren erreichen. Für negati¬ 
ve Textausgabe können Sie beispielsweise folgende Befehlssequenz verwen¬ 
den: 

Gotoxy (0,4); 

Inverse; 

Write (“DIESER TEXT IST INVERTIERT“); 

Normal; 
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Prograin LcaPatch; 

Procedure Lea; External; 

(* Lea muss in LcaPatch gelinkt werden *) 

Begin 

Lea; 

Gotoxy(8,8); 

Write('Pascal 1.1 mit Kleinbuchstabenanzeige'); 
End. 


Abb. 1 Programmbeispiel für Lca-Aufruf 


.PROC LCA 


;DIESE PROZEDUR AENDERT DAS PASCAL 1.1 SO IM BIOS, 
;DASS KLEINBUCHSTABEN MIT EINEM LOWERCASE-ADAPTER 
;AUSGEGEBEN WERDEN KOENNEN. DIESER PATCH FUNKTIONIERT 
;NUR MIT PASCAL 1.1 

;VON DAVE LIEBERMAN 12.6.81 


ADDR1 .EQU ODAAB 
RAMON .EQU 0C083 
RAMCLR .EQU 0C088 


LDA RAMON ;ZWEITE 4-K-BANK ANWAEHLEN 

LDA RAMON ;SCHREIBZUGRIFF ERMOEGLICHEN 


LDA #176. ; GROSSBUCHSTABENKONVERSION UNTERDRÜCKEN 

STA ADDR1 
LDA #02. 

STA ADDR1+1 

LDA #0 ;PSEUDOGROSSBUCHSTABEN ABSCHALTEN 

STA ADDR1+239. 


LDA RAMCLR ;ZURUECKSCHALTEN AUF ERSTE BANK 

RTS 


.END 


.PROC INVERSE ;KEINE PARAMETER 

;PROCEDURE INVERSE; 


DIE NAECHSTEN DREI SUBROUTINEN ERMOEGLICHEN ES, 
UNTER PASCAL INVERSE, NORMALE ODER BLINKENDE 
ZEICHEN IM NORMALEN APPLE TEXTFENSTER AUSZUGEBEN. 
BEIM INVERSE-MODUS ERSCHEINEN DIE ZEICHEN SCHWARZ 
AUF HELLEM HINTERGRUND. 
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LDA 

0C083 

;ZWEITE 4-K-BANK AKTIVIEREN 

LDA 

0C083 

;SCHREIBZUGRIFF ERMOEGLICHEN 

LDA 

#00 


STA 

ODABO 

;BITS 6 & 7 LOESCHEN 

LDA 

0C088 

;ERSTE BANK EINSCHALTEN 

;UND GEGEN UEBERSCHREIBEN SCHUEIZEN 

RTS 



•PROC NORMAL 


;KEINE PARAMETER 

PROCEDURE NORMAL; 



•NORMAL GIBT ZEICHEN WEISS AUF 


;SCHWARZEM HINTERGRUND 

AUS 


LDA 0C083 
LDA 0C083 
LDA #80 

STA ODABO 

;BIT 7 

SETZEN 


LDA 0C088 
RTS 


.PROC FLASH ;KEINE PARAMETER 

PROCEDURE FLASH 


FLASH GIBT BLINKENDE ZEICHEN AUS, 
ABWECHSELND NORMAL- UND INVERSE-MODUS 

LDA 0C083 

LDA 0C083 

LDA #40 

STA ODABO ;BIT 6 SETZEN 

LDA 0C088 

RTS 


Abb. 2 Prozeduren für Invers- und Flash-Darstellung 








Die einzige Einschränkung ist dabei, daß sich Kleinbuchstaben nicht inver¬ 
tiert oder blinkend ausgeben lassen. Bei dem Versuch, Kleinbuchstaben zu 
invertieren oder blinken zu lassen, erhalten Sie nur Unsinn auf dem Bild¬ 
schirm. 

Das Programm “LcaPatch“ zeigt, wie man echte Kleinbuchstaben mit 
einem “Lower Case Adapter“ ausgeben kann. Achten Sie darauf, daß dieser 
Patch nur mit der Pascal 1.1-Version funktioniert und mit anderen Modifi¬ 
kationen des BIOS (BASIC Input Output System) möglicherweise nicht 
kompatibel ist. 

Wenn man “LcaPatch“ korrekt kompiliert, eingebunden und in SY¬ 
STEM.STARTUP umbenannt hat, wird das Programm bei jedem Booten 
des Betriebssystems aufgerufen. Da keine permanenten Änderungen vorge¬ 
nommen werden, ist dieser Patch relativ sicher. Will man die Anzeige von 
Kleinbuchstaben abschalten, braucht man nur den Namen von 
SYSTEM.STARTUP zu ändern und das Betriebssystem neu zu booten. 
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Chris Wilson 


P-CODE DECODER 


(*$c COPYRIGHT 1981 CHRIS WILSON *) 

(* BENUTZEN SIE ZUM EDITIEREN UND KOMPILIEREN DEN SYSTEM-SWAPMODUS *) 
PROGRAM DECODE; 

TYPE 

WORD = PACKED RECORD 
CASE INTEGER OF 

0: (B: PACKED ARRAY [0..1] OF 0..255); 

1: (C: PACKED ARRAY [0..1] OF CHAR); 

2: (H: PACKED ARRAY [0..3] OF 0..15); 

3: (I: INTEGER); 

4: (P: A WORD) 

END; 

MTYPES = (UNDEF, PCODEMOST, PCODELEAST, PDP11, M8080, 

Z80, GA440, M6502, M6800, TI9900); 

SDRECORD = RECORD 

DISKINFO: ARRAY [0..15] OF 
RECORD 
CODELENG, 

CODEADDR: INTEGER 
END; 

SEGNAME: ARRAY [0..15] OF 
PACKED ARRAY [0..7] OF CHAR; 

SEGKIND: ARRAY [0..15] OF 

(LINKED, HOSTSEG, SEGPROC, UNITSEG, 

SEPRTSEG, UNLINKEDINTRINS, 

LINKEDINTRINS, DATASEG); 

TEXTADDR: ARRAY[0..15] OF INTEGER; 

SEGINFO: PACKED ARRAY [0..15] OF 
PACKED RECORD 
SEGNUM: 0..255; 

MTYPE: MTYPES; 

UNUSED: 0..1; 

VERSION: 0..7 
END; 

(* UND ANDERE GUTE SACHEN *) 

END; 

FREEUNION = RECORD 
CASE INTEGER OF 

1: (BUF: PACKED ARRAY [0..511] OF 0..255); 
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2: (DICT: SDRECORD); 

END; 

STRING1 = PACKED ARRAY [0..1] OF CHAR; 

STRING3 = PACKED ARRAY [0..3] OF CHAR; 

STRING7 = STRING[7]; 

PTYPE = (UB,SB,DB,B,W,X0,X1,X2,X3,X4,X5,X6,X7,XX); 
OPREC = RECORD 
MNEMONIC: STRING7; 

PI, 

P2: PTYPE; 

END; 


VAR 

PDCOUNT, 

FIRSTADDR, 

FIRSTBLOCK, 

CURRENTBLOCK: INTEGER; 

ADDR: STRING3; 

F: TEXT; 

SOURCEFILE: FILE; 

SOURCENAME, 

DESTNAME: STRING; 

OPCODE: ARRAY [0..255] OF OPREC; 

BUF: PACKED ARRAY [0..511] OF 0..255; 
SD: FREEUNION; 

PD: ARRAY [0..149] OF INTEGER; 

HEXDIGIT: PACKED ARRAY [0..15] OF CHAR; 


PROCEDURE WAIT; 

(*==*) 


BEGIN 

IF DESTNAME = 'CONSOLE:' THEN 
BEGIN 
WRITELN; 

WRITE('[WEITER MIT RETURN]'); 
READLN; 

END; 

END; 

PROCEDURE SKIP; 

(*==*) 


BEGIN 


IF DESTNAME = 'CONSOLE: 1 

PAGE(F) 

FI SF 

WEITELN(F); 

END; 


THEN 


PROCEDURE READBLOCK(LOC: INTEGER); 
(*=====*) 


BEGIN 

IF LOC < FIRSTADDR THEN 
REPEAT 

CURRENTBLOCK := PRED(CURRENTBLOCK); 
FIRSTADDR ;= FIRSTADDR-512; 

UNTIL LOC >= FIRSTADDR 
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ELSE IF LOC >= (FIRSTADDR+512) THEN 
REPEAT 

CURRENTBLOCK := SUCC(CURRENTBLOCK); 

FIRSTADDR :=* FIRSTADDR+512; 

UNTIL LOC < (FIRSTADDR+512); 

IF BLOCKREAD(SOURCEFILE,BUF,l,CURRENTBLOCK) <> 1 THEN 
BEGIN 

WRITELN('BLOCKREAD: FEHLER BEIM LESEN DES QUELLFILES 1 ); 
EXIT(DECODE); 

END; 

END; 


FUNCTION BYTEVAL(LOC: INTEGER): INTEGER; 
(*—"—*) 


BEGIN 

IF (LOC >= FIRSTADDR) AND (LOC < FIRSTADDR+512) THEN 
BYTEVAL := BUF[LOC-FIRSTADDR] 

ELSE 

BEGIN 

READBLOCK(LOC); 

BYTEVAL := BYTEVAL(LOC); 

END; 

END; 

FUNCTION WORDVAL(LOC: INTEGER): INTEGER; 

(*—*) 


VAR 

W: WORD; 


BEGIN 

W.B[0] := BYTEVAL(LOC); 

W.B[1] := BYTEVAL(SUCC(LOC)); 

WORDVAL :- W.I; 

END; 

PROCEDURE HEXBYTE(VALUE: INTEGER; VAR HEX: STRING1); 
(*=====*) 


VAR 

W: WORD; 


BEGIN 

W.I := VALUE; 

HEX[0] :- HEXDIGIT[W.H[1]]; 

HEX[1] := HEXDIGIT[W.H[0]]; 

END; 

PROCEDURE HEXWORD(VALUE: INTEGER; VAR HEX: STRING3); 
(*——*) 


VAR 

W: WORD; 

BEGIN 

W.I := VALUE; 

HEX[0] := HEXDIGIT[W.H[3]]; 
HEX[1] := HEXDIGIT[W.H[2]]; 








HEX[2] := HEXDIGIT[W.H[1]]; 
HEX[3] : = HEXDIGIT[W.H[0]]; 
END; 


PROCEDURE^DECODEPROC(PROC: INTEGER); 


VAR 

IPC, 

JTAB, 

LEXLEVEL, 

ENTERIC, 

EXITIC, 

PARAMSIZE, 

DATASIZE, 

LASTCODE: INTEGER; 
HEX: STRING3; 


PROCEDURE ONEOP; 

(*=_*) 


VAR 

I, 

MIN, 

MAX: INTEGER; 

BYTE: STRING1; 

HEX: STRING3; 

PROCEDURE HANDLEDB; 

BEGIN 

IPC := SUCC(IPC); 

HEXBYTE(BYTEVAL(IPC),BYTE); 
WRITE(F, BYTE:3); 

END; 

PROCEDURE HANDLEB; 

BEGIN 

IPC := SUCC(IPC); 

IF BYTEVAL(IPC) > 127 THEN 
BEGIN 

HEXBYTE(BYTEVAL(IPC)-128,BYTE); 
WRITE(F, BYTE:3); 

IPC := SUCC(IPC); 

HEXBYTE(BYTEVAL(IPC),BYTE); 
WRITE(F, BYTE); 

END 

ELSE 

BEGIN 

HEXBYTE(BYTEVAL(IPC)»BYTE); 
WRITE(F, BYTE:3); 

END; 

END; 

PROCEDURE HANDLEW; 

BEGIN 

HEXBYTE(BYTEVAL(IPC+2)»BYTE); 
WRITE(F, BYTE:3); 
HEXBYTE(BYTEVAL(IPC+1)»BYTE); 
WRITE(F, BYTE); 
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IPC : = IPC+2; 
END; 


PROCEDURE HANDLECSP; 
VAR S: STRING; 


BEGIN 
S := * 1 ; 

CASE BYTEVAL(IPC) OF 


0: S 

= 

’ (IOCHECK) 1 ; 

1: S 

= 

’ (NEW)’; 

2: S 

= 

’ (MOVELEFT)’ ; 

3: S 

= 

’ (MOVERIGHT)’ ; 

’ (EXIT) 1 ; 

4: S 

= 

5: S 

= 

1 (UNITREAD) 1 ; 

6: S 

= 

1 (ÜNITWRITE) 1 ; 

7: S 

= 

’ (IDSEARCH) 1 ; 

8: S 

= 

’ (TREESEARCH)’ ; 

’ (TIME)’; 

9: S 

= 

10: S 

= 

’ (FILLCHAR)’ ; 

’ (SCAN)’; 

11: S 

= 

21: S 

= 

’ (LOAD RESIDENT SEGMENT)’; 

22: S 

= 

’ (UNLOAD RESIDENT SEGMENT) 

23: S 

= 

’ (TRUNC)’; 

24: S 

= 

’ (ROUND)’; 

32: S 

=s 

’ (MARK)’; 

33: S 

SS 

’ (RELEASE)’; 

34: S 

= 

’ (IORESULT)’ ; 

35: S 

s 

’ (UNITBUSY)’ ; 

36: S 

SS 

’ (PWROFTEN)’ ; 

37: S 

SS 

’ (UNITWAIT)’ ; 

38: S 

SS 

’ (UNITCLEAR)’ ; 

’ (HALT)’; 

39: S 

SS 

40: S 

= 

’ (MEMAVAIL)’ ; 

END; 0 

► CASE *) 


WRITE(F, S); 
END; 


PROCEDURE HANDLECXP; 

VAR S: STRING; 

BEGIN 
HANDLEDB; 

IF BYTEVAL(PRED(IPC)) = 0 THEN 
BEGIN 
S := * * • 

CASE BYTEVAL(IPC) OF 


2 : 

3:' 

5: 

6 : 

7: 

8: 

10: 

11 : 

12: 

13: 

16: 

17: 

18: 

19: 


(EXECERROR) 1 ; 
(BUILD FIB) 1 ; 
(RESET/REWRITE)*; 
(CLOSE)*; 

(GET) 1 ; 

(PUT)'; 

(EOF)’; 

(EOLN) 1 ; 

(READ INTEGER)’; 
(WRITE INTEGER)’; 
(READ CHAR)’; 
(WRITE CHAR)’; 
(READ STRING)’; 
(WRITE STRING)’; 




20: S := 1 (WRITE ARRAY 0F CHAR)*; 

21: S := * (READLN)'; 

22: S := * (WRITELN) 1 ; 

23: S := 1 (CONCAT)'; 

24: S := 1 (INSERT) 1 ; 

25: S := • (COPY) 1 ; 

26: S := 1 (DELETE)'; 

27: S := * (POS)»; 

28: S := * (BLOCK READ/WRITE) 1 ; 

29: S := * (GOTOXY) 1 ; 

END; (* CASE *) 

VRITE(F, S); 

END; 

END; 

BEGIN (* ONEOP *) 

WITH OPCODE[BYTEVAL(IPC)] DO 
BEGIN 

HEXWORD(IPC,HEX); 

HEXBYTE(BYTEVAL(IPC),BYTE); 

WRITE(F, HEX, f f , MNEMONIC, * (*, BYTE, ')*, 
CASE PI OF 
UB, SB, DB: 

HANDLEDB; 

B: 

HANDLEB; 

W: 

HANDLEW; 

XX: 

BEGIN 

END; 

END; (* CASE *) 

CASE P2 OF 
UB, SB, DB: 

HANDLEDB; 

B: 

HANDLEB; 

W: 

HANDLEW; 

XO: 

HANDLECSP; 

XI: 

BEGIN 

(* LSA, LSP *) 

WRITE(F, 1 111 ); 

FOR I := 1 TO BYTEVAL(IPC) DO 
BEGIN 

IPC := SUCC(IPC); 

IF I MOD 16 = 0 THEN 
BEGIN 

WRITELN(F, ""){ 

WRITE(F, ' ' :21, 

END; 

IF BYTEVAL(IPC) > 31 THEN 
WRITE(F, CHR(BYTEVAL(IPC))) 

ELSE 

KRITE(F, '.')i 
END; 

WRITE(F, ""); 

END; 


' ':7-LENGTH(MNEM0NIC)); 
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X2: 

BEGIN 
(* XJP *) 

IF NOT ODD(IPC) THEN 

(* MUSS WORTLAENGE HABEN *) 

IPC := SUCC(IPC); 

HANDLEW; 

HANDLEW; 

HANDLEW; 

MIN := WORDVAL(IPC-5); 

MAX := WORDVAL(IPC-3); 

FOR I := MIN TO MAX DO 
BEGIN 

WRITELN(F); 

WRITE(F, 1 *:19); 

HANDLEW; 

HEXWORD(PRED(IPC)-WORDVAL(PRED(IPC)) f HEX); 
WRITE(F, 1 (\ HEX, •)•); 

END; 

END; 

X3: 

BEGIN 

(* EQU, ETC. *) 

CASE BYTEVAL(IPC) OF 
2; WRITE(F, ' (REAL)*); 

4: WRITE(F, ' (STRING)'); 

6: WRITE(F, ' (BOOLEAN)'); 

8; WRITE(F, ' (SET)'); 

10: BEGIN 
HANDLEB; 

WRITE(F, 1 (BYTE ARRAY)'); 

END; 

12: BEGIN 
HANDLEB; 

WRITE(F, ' (WORD)'); 

END; 

END; (* CASE *) 

END; 

X4: 

BEGIN 
(* LDC *) 

MAX := BYTEVAL(IPC); 

IF NOT ODD(IPC) THEN 

(* MUSS WORTLAENGE HABEN *) 

IPC := SUCC(IPC); 

FOR I := 1 TO MAX DO 
BEGIN 

WRITELN(F); 

WRITE(F, ' ':19); 

HANDLEW; 

END; 

END; 

X5: 

HANDLECXP; 

X6: 

BEGIN 

(* FsJP, UJP, EFJ, NFJ *) 

I := BYTEVAL(IPC); (* SPRUNGOFFSET *) 

IF I < 128 THEN 



HEXWORD(SUCC(IPC)+I,HEX) 
ELSE 
BEGIN 

I := JTAB-(256-1); 
HEXWORD(I-WORDVAL(I),HEX); 
END; 

WRITE(F, ' (', HEX, ')'); 
END; 

X7: 

BEGIN 

(* RNP, RBP *) 

IF IPC >= EXITIC THEN 
LASTCODE := IPC; 

END; 

XX: 

BEGIN 

END; 

END; (* CASE *) 

END; (* WITH *) 

WRITELN(F); 

END; 


BEGIN (* DECODEPROC *) 

JTAB := PD[PROC]; 

IF JTAB < 0 THEN 
BEGIN 
WRITELN; 

WRITELN(' »> FALSCHE PROZEDURADRESSE <«'); 

END 

ELSE 

BEGIN 

LEXLEVEL := BYTEVAL(SUCC(JTAB)); 

IF LEXLEVEL > 127 THEN 
LEXLEVEL := LEXLEVEL-256; 

ENTERIC := (JTAB-2)-WORDVAL(JTAB-2); 

EXITIC := (JTAB-4)-WORDVAL(JTAB-4); 

PARAMSIZE := WORDVAL(JTAB-6); 

DATASIZE := WORDVAL(JTAB-8); 

LASTCODE := JTAB-9; 

SKIP; 

WRITELN(F, 'PROCEDURCODE:'); 

WRITELN(F, '-'); 

WRITELN(F); 

WRITELN(F, 'LEX LEVEL LEXLEVEL, ', PROZEDUR ', BYTEVAL(JTAB)); 
HEXWORD(ENTERIC,HEX); 

WRITELN(F, 'ENTER IC ’, ENTERIC, ’ (', HEX, ')'); 
HEXWORD(EXITIC.HEX); 

WRITELN(F, ’EXIT IC ', EXITIC, ' (', HEX, ')'); 

HEXWORD(PARAMSIZE,HEX); 

WRITELN(F, 'PARAMETERGROESSE ', PARAMSIZE, ' (', HEX, ')'); 
HEXWORD(DATASIZE,HEX); 

WRITELN(F, ’DATENGROESSE ', DATASIZE, ' (', HEX, ')'); 

WRITELN(F); 

IPC := ENTERIC; 

IF LEXLEVEL < -1 THEN 

WRITELN (’»> FALSCHER LEXIKALISCHER LEVEL <«') 

ELSE IF ENTERIC < 0 THEN 

WRITELN ('»> ENTER IC FALSCH <«') 

ELSE IF EXITIC < 0 THEN 
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WRITELN( '»> EXIT IC FALSCH <«') 
ELSE 
REPEAT 
ONEOP; 

IPC := SUCC(IPC); 

UNTIL IPC > LASTCODE; 

END; 

WAIT; 

END; 

PROCEDURE CHOOSEPROC; 

(*———*) 

VAR 

I; INTEGER; 

DONE: BOOLEAN; 

BEGIN 

REPEAT 

PAGE(OUTPUT); 

WRITELN('ZU DECODIERENDE PROZEDUR:'); 
WRITELN; 

WRITELN(' [ 1..', PDCOUNT, ']'); 
WRITELN; 

WRITELN; 

WRITELN('-1 FUER ENDE'); 

WRITELN; 

WRITE('PROZEDUR: '); 

READLN(I); 

DONE := I < 0; 

IF I IN [1..PDCOUNT] THEN 
DECODEPROC(I); 

UNTIL DONE; 

END; 

PROCEDURE READPROCDICT(SEG: INTEGER); 


VAR 

I, 

LOC, 

SEGLENGTH: INTEGER; 

HEX: STRING3; 

BEGIN 

WITH SD.DICT DO 
BEGIN 

FIRSTADDR := 0; 

FIRSTBLOCK := DISKINFO[SEG].CODEADDR; 
CURRENTBLOCK := FIRSTBLOCK; 

SEGLENGTH := DISKINFO[SEG].CODELENG; 
END; 

LOC := PRED(SEGLENGTH); 

READBLOCK(LOC); 

PDCOUNT := BYTEVAL(LOC); 

LOC := PRED(LOC); 

SKIP* 

WRITELN(F, 'PROZEDURDICTIONARY:'); 

WRITELN(F, '-'); 

WRITELN(F); 

WRITELN(F, 'SEGMENT ', BYTEVAL(LOC)); 





WRITELN(F, 1 PROZEDURZAEHLER T , PDCOUNT); 

WRITELN(F); 

FOR I := 1 TO PDCOUNT DO 
BEGIN 

LOC : = LOC-2; 

PD[I] := LOC-WORDVAL(LOC); 

HEXWORD(PD[I],HEX); 

WRITELN(F, 'PROZEDUR 1:2, ADRESSE PD[I]:5, ' HEX, ')' 
END; 

WAIT; 

CHOOSEPROC; 

END; 


PROCEDURE CHOOSESEGMENT;^ 


VAR 

I: INTEGER; 

ANSWER: CHAR; 

DONE: BOOLEAN; 

BEGIN 

WITH SD.DICT DO 
REPEAT 

PAGE(OUTPUT); 

WRITELN('ZU ANALYSIERENDES SEGMENT:'); 

WRITELN; 

FOR I := 0 TO 15 DO 

IF SEGNAME[I] <> ' ’ THEN 

WRITELN(I:2, ' ', SEGNAME[I]); 

WRITELN; 

WRITELN('-1 FUER ENDE'); 

WRITELN; 

WRITE('SEGMENT: '); 

READLN(I); 

DONE := I < 0; 

IF I IN [0..15] THEN 
IF SEGINFO[I].MTYPE <> PCODELEAST THEN 
BEGIN 

WRITELN('SEGMENT KEIN P-CODE '); 

IF SEGINFO[I].MTYPE IN [UNDEF,PCODEMOST] THEN 
BEGIN 

WRITE('TROTZDEM VERSUCHEN ZU DECODIEREN (J/N): '); 
READLN(ANSWER); 

IF ANSWER IN ['J','j'] THEN 
READPROCDICT(I); 

END 

ELSE 

WAIT; 

END 

ELSE 

READPROCDICT(I); 

UNTIL DONE; 

END; 
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PROCEDURE READSEGDICT; 

(♦———*) 


VAR 

I: INTEGER; 

S: STRING; 

BEGIN 

IF BLOCKREAD(SOURCEFILE,SD.BUF,1,0) <> 1 THEN 
BEGIN 

WRITELNC'FEHLER BEIM LESEN DES SEGMENT-DICTIONARIES'); 
EXIT(DECODE); 

END; 

WITH SD.DICT DO 
BEGIN 
I := 0; 

SKIP* 

WRITELN(F, 'SEGMENT DICTIONARY; 1 ); 

WRITELN(F, '- 1 ); 

REPEAT 

IF SEGNAME[I] <> 1 ' THEN 

WITH SEGINFO[I] DO 
BEGIN 

WRITELN(F); 

WRITELN(F, 'SEGMENT SEGNUM); 

WITH DISKINFO[I] DO 

WRITELN(F, f LAENGE ', CODELENG, ', ADRESSE ', CODEADDR); 
WRITELNCF, 'SYSTEM VERSION « ', VERSION); 

S := "; 

CASE MTYPE OF 
UNDEF: 

S := 'UNDEFINIERT'; 

PCODEMOST: 

S := 'P-CODE (MSB ZUERST)'; 

PCODELEAST: 


S := 1 

'P-CODE (LSB ZUERST) 

PDP11: 

S := 1 

'PDP11'; 

M8080: 

S ;= 1 

'8080'; 

Z80: 

S ;= ’ 

1 Z80'; 

GA440; 

S : = 

'GA440'; 

M6502: 

S ; = 

'6502'; 

M6800: 

S : = 

'6800'; 

TI9900; 
S ; = 

'TI9900'; 

END; (* 

CASE *) 

WRITELN(F, 'CODETYP IST ', 


S := "; 

CASE SEGKIND[I] OF 
LINKED: 

S := 'LINKED'; 

HOSTSEG: 

S := ’HOST SEGMENT'; 
SEGPROC: 

S := 'SEGMENTPROZEDUR'; 




UNITSEG: 

S := ’UNITSEGMENT 1 ; 

SEPRTSEG: 

S := * SEPARATE SEGMENT 1 ; 
UNLINKEDINTRINS: 

S := 'UNLINKED INTRINSIC'; 
LINKEDINTRINS: 

S := 'LINKED INTRINSIC 1 ; 
DATASEG: 

S := 'DATA SEGMENT 1 ; 

END; (* CASE *) 

VRITELN(F, SEGNAME[I], 1 (\ S, 
END; 

I SUCC(I); 

UNTIL I >15; 

END; 

WAIT; 

CHOOSESEGMENT; 

END; 


PROCEDURE INITIALIZE; 

(*=====*) 


VAR 

I: INTEGER; 

S: STRING7; 

PROCEDURE INIT(OP: INTEGER; MNE:STRING7; XI, X2: PTYPE); 
BEGIN 

WITH OPCODE[OP] DO 
BEGIN 

MNEMONIC := MNE; 

PI := XI; 

P2 := X2; 

END; 

END; 

PROCEDURE INIT1; 


BEGIN 
INIT(128, 1 

'ABI' 

,XX,XX) 

(* 80 

*) 

INIT(129, 

'ABR' 

,XX,XX) 

(* 81 

*) 

INIT(130, 

'ADI' 

,xx,xx) 

(* 82 

*) 

INIT(131, 

'ADR' 

,XX,XX) 

(* 83 

*) 

INIT(132, 

'UND' 

,XX,XX) 

(* 84 

*) 

INIT(133, 

’DIF' 

,XX,XX) 

(* 85 

*) 

INIT(134,' 

’DVI' 

,XX,XX) 

(* 86 

*) 

INIT(135, 

'DVR' 

,XX,XX) 

(* 87 

*) 

INIT(136, 

'CHK' 

,XX,XX) 

(* 88 

*) 

INIT(137, 

'FLO' 

,XX,XX) 

(* 89 

*) 

INIT(138, 

’FLT' 

,XX,XX) 

(* 8A 

*) 

INIT(139, 

'INN' 

,XX,XX) 

(* 8B 

*) 

INIT(140, 

'INT' 

,XX,XX) 

(* 8C 

*) 

INIT(141, 

’LOR' 

,XX,XX) 

(* 8D 

*) 

INIT(142, 

'MODI' 

,XX,XX) 

(* 8E 

*) 

INIT(143, 

’MPI' 

,XX,XX) 

(* 8F 

*) 

INIT(144, 

’MPR' 

,XX,XX) 

(* 90 

*) 

INIT(145, 

'NGl' 

,XX,XX) 

(* 91 

*) 

INIT(146, 

'NGR' 

,XX,XX) 

(* 92 

*) 

INIT(147, 

’LNOT' 

,XX,XX) 

(* 93 

*) 

INIT(148, 

’SRS’ 

,XX,XX) 

(* 94 

*) 
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INIT(149,'SBI' 
INIT(150 f ’SBR’ 
iNrrasi.'SGS' 
INITdSa.'SQI' 
INIT(153,'SQR' 
INIT(154,'STO' 
INIT(155,' IXS' 
INIIdSö/ÜNI' 
INIT(157,'LDE' 
INIT(158,'CSP' 
INIT(159,’LDCN' 
INIT(160,'ADJ' 
mT(161,'FJP' 
INIT(162,'INC' 
INIT(163,’IND' 
INIT(164,'IXA' 
INIT(165,'LAO' 
INIT(166,'LSA’ 
INIT(167,'LAE' 
INIT(168,'MOV' 
INIT(169,'LDO' 
INIT(170,’SAS' 
XNIT(171,'SRO' 
INIT(172,'XJP' 
INIT(173,’RNP' 
INIT(174,’CIP' 
INXT(175,’EQU' 
END; 

PROCEDURE INIT2; 
BEGIN 

INIT(176,'GEQ' 
INIT(177,’GRT' 
INIT(178,’LDA' 
INIT(179,'LDC' 
INIT(180,’LEQ' 
INIT(181,’LES' 
INIT(182,’LOD' 
INrr(183,'NEQ' 
INIT(184,'STR' 
INIT(185,'UJP' 
INIT(186, 'U)P' 
INIT(187,'STP' 
INIT(188,'LDM' 
INIT(189,’STM' 
INIT(190,'LDB' 
INIT(191,'STB' 
INIT(192,'IXP' 
INIT(193,'RBP' 
INIT(194,'CBP' 
INIT(195,’EQUI' 
INIT(196,'GEQI' 
INIT(197,'GRTI' 
INIT(198, , LLA’ 
INITCigg/LDCI' 
INIT(200,*LEQI* 
INIT(201,'LESI' 
INIT(202,'LDL' 
INIT(203,’NEQI' 
INIT(204,'STL' 


,XX,XX) 

(* 

95 

*) 

,XX,XX) 

(* 

96 

*) 

,XX,XX) 

(* 

97 

*) 

,XX,XX) 

(* 

98 

*) 

,XX,XX) 

(* 

99 

*) 

,XX,XX) 

(* 

9A 

*) 

,XX,XX) 

(* 

9B 

*) 

,XX,XX) 

(* 

9C 

*) 

,UB, B) 

(* 

9D 

*) 

,UB,XO) 

(* 

9E 

*) 

,XX,XX) 

(* 

9F 

*) 

,UB,XX) 

c* 

AO 

*) 

,SB,X6) 

(* 

Al 

*) 

, B.XX) 

(* 

A2 

*) 

. B.XX) 

(* 

A3 

*) 

, B.XX) 

(* 

A4 

*) 

. B.XX) 

(* 

A5 

*) 

,UB,X1) 

(* 

A6 

*) 

,UB. B) 

(* 

A7 

*) 

, B,XX) 

(* 

A8 

*) 

, B.XX) 

(* 

A9 

*) 

,UB,XX) 

(* 

AA 

*) 

, B.XX) 

(* 

AB 

*) 

,XX,X2) 

(* 

AC 

*> 

,DB,X7) 

(* 

AD 

*) 

,ÜB,XX) 

(* 

AE 

*) 

,DB,X3) 

(* 

AF 

*) 


,DB,X3) 

(* 

BO 

*) 

,DB,X3) 

<* 

Bl 

*> 

.DB. B) 

(* 

B2 

*) 

,UB,X4) 

(* 

B3 

*) 

,DB,X3) 

(• 

B4 

*) 

,DB,X3) 

(* 

B5 

*> 

»DB, B) 

(* 

B6 

*) 

,DB,X3) 

(* 

B7 

*) 

.DB, B) 

(* 

B8 

*) 

,SB,X6) 

(* 

B9 

*) 

,XX,XX) 

(* 

BA 

*) 

,XX,XX) 

(* 

BB 

*) 

,UB,XX) 

(* 

BC 

*) 

,UB,XX) 

(* 

BD 

*> 

,XX,XX) 

(* 

BE 

*) 

,XX,XX) 

(* 

BF 

*) 

,UB,UB) 

(* 

CO 

*) 

.DB.X7) 

(* 

CI 

*> 

,UB,XX) 

(* 

C2 

*) 

,XX,XX) 

(* 

C3 

*) 

,XX,XX) 

(* 

C4 

*) 

,XX,XX) 

(* 

C5 

*) 

. B.XX) 

(♦ 

C6 

*) 

, W.XX) 

(* 

C7 

*> 

,XX,XX) 

(* 

C8 

*) 

,XX,XX) 

(* 

C9 

*) 

. B.XX) 

(* 

CA 

*) 

.XX,XX) 

(* 

CB 

*) 

, B.XX) 

(♦ 

CC 

*) 




INIT(205,’CXP' 
INIT(206,'CLP' 
INIT(207,'CGP' 
INIT(208,’LPA' 
INIT(209, 'STE' 
XNIT(210,'NOP' 
INIT(211,'EFJ' 
INIT(212,'NFJ' 
INIT(2,13, ’BPT' 
INIT(214,’XIT' 
INrr(215,'NOP' 
END; 

PROCEDURE INIT3; 
BEGIN 
INIT(216,’SLDLl' 
INIT(217,'SLDL2' 
INIT(218,'SLDL3' 
INIT(219,'SLDL4' 
INIT(220,'SLDL5' 
INIT(221,'SLDL6' 
INIT(222,'SLDL7' 
INIT(223,'SLDL8' 
INIT(224,'SLDL9' 
INIT(225,’SLDLIO' 
INIT(226,’SLDLll' 
INIT(227,'SLDL12 1 
INIT(228,'SLDL13' 
INIT(229,'SLDL14' 
INIT(230,'SLDL15' 
INIT(231,'SLDL16' 
INIT(232 f ’SLDOl’ 
INIT(233, 1 SLD02' 
INIT(234,'SLD03' 
INIT(235,'SLD04' 
INIT(236,'SLD05' 
INIT(237,'SLD06' 
INIT(238,'SLD07' 
INIT(239,'SLD08' 
INIT(240,'SLD09' 
INIT(241,'SLDOIO' 
INIT(242,'SLDOll' 
INIT(243,'SLD012' 
INIT(244,'SLD013' 
INIT(245,'SLD014' 
XNIT(246,'SLD015' 
INIT(247,'SLD016' 
INIT(248,'SINDO' 
INIT(249,'SINDl' 
INIT(250,'SIND2' 
INIT(251,'SIND3' 
INIT(252,'SIND4' 
INIT(253,'SIND5' 
INIT(254,'SIND6' 
INIT(255,'SIND7' 


,UB,X5) 

(* 

CD 

*) 

,ÜB,XX) 

(* 

CE 

*) 

,UB,XX) 

(* 

CF 

*) 

,UB,X1) 

(* 

DO 

*) 

,UB, B) 

(* 

Dl 

*) 

,XX,XX) 

(* 

D2 

*) 

,SB,X6) 

(* 

D3 

*) 

,SB,X6) 

(* 

D4 

*) 

, B,XX) 

(* 

D5 

*) 

,n,xx) 

(* 

D6 

*) 

,XX,XX) 

(* 

D7 

*) 


,XX,XX); (* D8 *) 
,XX,XX); (* D9 *) 
,XX,XX); (* DA *) 
,XX,XX); (* DB *) 
,XX,XX); (* DC *) 
,XX,XX); (* DD *) 
,XX,XX); (* DE *) 
,XX,XX); (* DF *) 
,XX,XX); (* EO *) 
,XX,XX); (* El *) 
,XX,XX); (* E2 *) 
,XX,XX); (* E3 *) 
,XX,XX); (* E4 *) 
,XX,XX); (* E5 *) 
,XX,XX); (* E6 *) 
,XX,XX); (* E7 *) 
,XX,XX); (* E8 *) 
,XX,XX); (* E9 *) 
,XX,XX); (* EA *) 
,XX,XX); (* EB *) 
,XX,XX); (* EC *) 
,XX,XX); (* ED *) 
,XX,XX); (* EE *) 
,XX,XX); c* EF *) 
,XX,XX); (* FO *) 
,XX,XX); (* Fl *) 
,XX,XX); (* F2 *) 
,XX,XX); (* F3 *) 
,n,XX); (* F4 *) 
,XX,XX); (* F5 *) 
,XX,XX); (* F6 *) 
,XX,XX); (* F7 *) 
,XX,XX); (* F8 *) 
,XX,XX); (* F9 *) 
,XX,XX); (* FA *) 
,XX,XX); (* FB *) 
,XX,XX); (* FC *) 
,XX,XX); (* FD *) 
,XX,XX); (* FE *) 
,XX,XX); (* FF *) 




BEGIN (* INITIALIZE *) 
FOR I := 0 TO 127 DO 
BEGIN 
STR(I.S); 

S := CONCAT(’SLDC',S); 
INIT(I,S,XX,XX); 

END; 

INIT1; 

INIT2; 

INIT3; 

END; 


(* ===== HAUPTPROGRAMM ========= *) 


BEGIN 

HEXDIGIT := '0123456789ABCDEF'; 

PAGE(OUTPUT); 

WRITELN('DECODE (25.6.81)'); 

WRITELN('COPYRIGHT 1981 CHRIS WILSON'); 

WRITELN; 

WRITELN('INITIALISIERUNG...'); 

INITIALIZE; 

WRITELN; 

WRITE('QUELLFILE: '); 

READLN(SOURCENAME); 

IF SOURCENAME = '' THEN 
EXIT(DECODE); 

IF POS('.CODE',SOURCENAME) = 0 THEN 
IF POS('SYSTEM.',SOURCENAME) = 0 THEN 
IF SOURCENAME[LENGTH(SOURCENAME)] <> ’.' THEN 
SOURCENAME := CONCAT(SOURCENAME,'.CODE') 
ELSE 

DELETE(SOURCENAME,LENGTH(SOURCENAME), 1); 
WRITE('ZIELFILE: '); 

READLN(DESTNAME); 

IF DESTNAME = '' THEN 
DESTNAME := 'CONSOLE:' 

ELSE IF POS('.TEXT',DESTNAME) = 0 THEN 
IF DESTNAME]LENGTH(DESTNAME)] <> ':' THEN 
IF DESTNAME[LENGTH(DESTNAME)] <> '.' THEN 
DESTNAME := CONCAT(DESTNAME,'.TEXT') 

ELSE 

DELETE(DESTNAME,LENGTH(DESTNAME),1); 

RESET(SOURCEFILE,SOURCENAME); 

REWRITE(F,DESTNAME); 

READSEGDICT; 

CLOSE(F.LOCK); 

END. 
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Chris Wilson 


Ein Pascal- 
Textformatierer 


Die meisten kommerziellen Textverarbeitungs-Systeme bestehen in Wirklich¬ 
keit aus zwei Programmen: einem Bildschirm-orientierten Editor und einem 
Textformatierer. Da das Pascal-Betriebssystem bereits über einen sehr guten 
Editor verfügt, fehlt zur Textverarbeitung in Pascal nur noch das Formatier¬ 
programm. 

In dem ausgezeichneten Buch Software Tools von Kernigham und Plau- 
ger findet sich eine Reihe nützlicher Programme, darunter auch ein Textfor¬ 
matierer. Ich habe deren FORMAT-Programm von Ratfor in Pascal über¬ 
setzt und diverse (von den Autoren vorgeschlagene) Erweiterungen vorge¬ 
nommen. Das Programmlisting finden Sie am Ende dieses Kapitels. 

Die von FORMAT zu verarbeitenden Dateien bestehen aus einer Mi¬ 
schung von Befehlszeilen (die das Ausgabeformat beschreiben) und Textzei¬ 
len. Jede Zeile, die mit einem Punkt beginnt (.), wird als Befehlszeile angese¬ 
hen. Unverständliche Befehlszeilen werden einfach ignoriert. 

Auf den Punkt einer Befehlszeile folgt ein aus zwei Buchstaben bestehen¬ 
der Befehl. Zu manchen Befehlen gibt es optionale Parameter, die vom Be¬ 
fehlsnamen durch mindestens ein Leerzeichen getrennt sein müssen. Bevor 
die Befehlsnamen interpretiert werden, werden sie Zeichen für Zeichen in 
Großbuchstaben umgewandelt; man kann sie daher als Groß- oder Klein¬ 
buchstaben eingeben. 

So sorgt beispielsweise der Befehl: 

.in 10 

für eine Einrückung von 10 Spalten. 

Zur Angabe numerischer Parameter für Befehle wie “.in“ gibt es mehre¬ 
re Möglichkeiten. Die erste ist, den Parameter ganz wegzulassen, mit dem 
Resultat, daß der Formatierer einen Vorgabewert verwendet (beim .in- 
Befehl den Wert 0): 

.in 
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Die zweite Möglichleit ist die direkte Parametereingabe: 


.in 10 

Die dritte Möglichkeit besteht darin, die (positive oder negative) Differenz 
zwischen dem aktuellen und dem gewünschten Wert einzugeben: 

.in +5 
.in -5 


FORMAT verfügt über zwei Modi zur Verarbeitung von Textzeilen, nämlich 
den “Wortmodus“ und den “Zeilenmodus“. 

Im Wortmodus werden die Textzeilen in Wörter zerlegt, die dann unter 
Beachtung von Randbegrenzungen in neuformatierte Ausgabezeilen umge¬ 
speichert werden. Die Ausgabezeilen werden vor der Ausgabe durch Hinzu¬ 
fügen von Leerzeichen rechtsbündig formatiert. Man bezeichnet diesen Pro¬ 
zess als “Füllen“ (filling). 

Im Zeilenmodus werden die Textzeilen ohne interne Umgruppierungen 
ausgegeben, wobei aber immer noch Formatierungsparameter wie Randbe¬ 
grenzung, mittiges Schreiben oder Unterstreichungen berücksichtigt werden. 

Der Füllmodus wird vorgabemäßig eingeschaltet und läßt sich mit dem 
Befehl: 


.nf 

abschalten (no filling). Mit 
.fi 

kann er wieder eingeschaltet werden. Wenn eine Ausgabezeile beim Aus¬ 
schalten des Füllmodus erst teilweise gefüllt ist, wird diese Zeile sofort ausge¬ 
geben, bevor weitere Formatierkommandos berücksichtigt werden. Man 
nennt diesen Vorgang “Break“ (Abbruch). Etliche Formatierbefehle impli¬ 
zieren ein Break; mit dem Befehl: 

.br 

kann man ein Break auch explizit auslösen. 

Der Einrückungsbefehl gibt an, um wieviele Spalten die nachfolgenden 
Ausgabezeilen eingerückt werden sollen (linker Rand): 

.in 10 
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Der “Temporary Indent*‘-Befehl (etwa “vorübergehende Einrückung“) löst 
ein Break aus und bestimmt, um wieviele Spalten die nächste Zeile einzu¬ 
rücken ist: 

.ti +5 

Durch den Befehl “Right Margin“ (rechter Rand), wird angegeben, bei wel¬ 
cher Spalte der rechte Rand des Textes liegen soll: 

.rm 72 

Der Füllmodus berücksichtigt die jeweils durch “.rm“, “.ti“ und “.in“ fest¬ 
gelegte Textbegrenzung. 

Der “Center“-Befehl erzeugt ein Break und sorgt dann dafür, daß die 
nachfolgenden Zeilen mittig geschrieben werden, und zwar solange, bis ent¬ 
weder eine zuvor angegebene Zeilenanzahl zentriert worden ist oder ein Zen¬ 
trierbefehl mit dem Wert 0 auftritt. Der Befehl: 


.ce 

«Textzeile» 

zentriert auf diese Weise eine Zeile, während 
.ce n 

«Textzeile 1» 

«Textzeile 2» 


«Textzeile n» 

insgesamt n Zeilen zentriert, die im voraus gezählt werden. Mit 

.ce 500 
«Textzeile 1» 

«Textzeile 2» 


«Textzeile n» 

.ce 0 

lassen sich n Zeilen zentrieren, die nicht im voraus gezählt wurden (mit n « = 
500). 
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Nach Aufruf des “Underline“(Unterstreichungs)-Befehls werden alle 
Zeilen unterstrichen, bis entweder die zuvor angegebene Zeilenanzahl er¬ 
reicht ist oder bis ein Unterstreichnungbefehl mit dem Wert 0 gefunden wird: 

.ul 2 

«Textzeile 1» 

«Textzeile 2» 

Dieser Befehl ähnelt dem Zentrierbefehl mit dem Unterschied, daß hier kein 
Break ausgelöst wird, so daß man im Füllmodus einzelne Wörter unterstrei¬ 
chen kann: 

«Textzeile» 

.ul 

« zu unterstreichender Text» 

«Textzeile» 

«Textzeile» 

Man kann Zentrier- und Unterstreichungsbefehle auch miteinander verbin¬ 
den: 


.ce 

.ul 

«Zu zentrierender und zu unterstreichender Text» 

Zwischen zwei Ausgabezeilen wird automatisch eine Textzeile freigelassen. 
Der “Line Space“(Zeilenvorschub)-Befehl dient dazu, den Zeilenvorschub 
zwischen den Ausgabezeilen zu ändern. Gibt man den Wert “2“ ein, so wird 
der Zeilenvorschub verdoppelt: 

.ls 2 

Der “Space“(Leerzeilen)-Befehl erzeugt ein Break und gibt dann Leerzeilen 
aus, bis die angegebene Anzahl leerer Zeilen erzeugt wurde oder ein Seite¬ 
nende erreicht ist: 

.sp 2 

Leerzeilen, die durch einen Zeilenvorschub von mehr als eins erzeugt wer¬ 
den, entstehen als ein Nebenprodukt beim Schreiben der aktuellen Ausgabe¬ 
zeile. Da bei einem Break die aktuelle Ausgabezeile ausgegeben wird, wenn 
sie nicht leer ist, kann ein Zeilenvorschub als Nebeneffekt eines Breaks auf- 
treten. Es ist wichtig, dieses Phänomen zu verstehen, da hierdurch mehr 
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Leerzeilen erzeugt werden können, als man bei Anwendung des Space- 
Befehls erwarten würde. 

Leere Textzeilen und Zeilen, die mit Leerzeichen beginnen, werden be¬ 
sonders behandelt, wodurch sich die Anzahl der explizierten Formatierbe¬ 
fehle verringert. 

Beim Auftreten einer Leerzeile wird ein Break ausgelöst (mit dem ent¬ 
sprechenden Zeilenabstand für die aktuelle Ausgabezeile) und danach eine 
Leerzeile ausgegeben (ebenfalls mit dem entsprechenden Zeilenabstand). 

Zeilen, die nicht leer sind, aber mit Leerzeichen beginnen, erzeugen ein 
Break und eine temporäre Einrückung, die der Anzahl der Leerzeichen ent¬ 
spricht, mit denen die Zeile beginnt. 

Der “Need“-Befehl (etwa: “Reservierungs“-Befehl) bewirkt ein Break. 
Danach wird festgestellt, ob die angegebene Zahl von Ausgabezeilen noch 
auf die aktuelle Seite paßt; wenn nicht, wird ein Seitenvorschub erzeugt. 

.ne 10 

Beim “Need“-Befehl wird der Zeilenvorschub berücksichtigt. Damit wird 
ein Wert von 10 automatisch in 20 umgerechnet, wenn man doppelten Zei¬ 
lenabstand gewählt hat. 

Die Befehle “Header“ (Seitenkopf) und “Footer“ (Seitenabschluß, Fuß¬ 
note) dienen dazu, die oberste und unterste Zeile für die nachfolgenden Sei¬ 
ten zu bestimmen. 

.he/links/Mitte/rechts/ 

.fo/links/Mitte/rechts/ 

Das “/“-Zeichen ist ein frei wählbares Begrenzungszeichen, das dazu dient, 
die drei Teile eines laufenden Titels voneinander zu trennen. Der linke Teil 
wird linksbündig, der rechte Teil rechtsbündig und der mittlere Teil mittig 
geschrieben. Die dabei benutzten Randbreiten sind diejenigen, die zur Verar¬ 
beitungszeit des Befehls und nicht etwa zur Zeit des Titelausdrucks gültig 
sind. 

Erscheint irgendwo in einem der drei Teile ein “ ^“-Zeichen, so wird es 
durch die aktuelle Seitennummer ersetzt. Jeder der drei Teile kann leer sein. 

.he “25.Jul.84““Seite#“ 

Durch Angabe eines leeren Parameters wird der entsprechende Titel ge¬ 
löscht: 


.he 
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Der “Begin Page“(Neue Seite)-Befehl bewirkt ein Break. Danach wird die 
aktuelle Seite (falls vorhanden) abgeschlossen (Ausdruck der Fußzeile usw.); 
danach wird mit der neuen Seite begonnen: 

•bp 

Durch einen Befehl wie: 

.bp 45 

wird die Seitennummer der nächsten Seite auf den entsprechenden Wert fest¬ 
gelegt. 

Der “Page Length“(Seitenlängen)-Befehl legt fest, wie viele Zeilen eine 
Seite haben soll: 

.pl 66 

In Tabelle 1 finden Sie das Seitenformat inclusive der Kopf- und Fußzeile. 
Tab. 1: Seitenformat 


Zeile Bedeutung 

1 

2 [Kopfzeile] 

3 

4 

5 [1. Ausgabezeile] 

6 [2. Ausgabezeile] 


pl-5 [vorletzte Ausgabezeile] 
pl-4 [letzte Ausgabezeile] 
pl-3 

pl-2 

pl-1 [Fußzeile] 

Pl 


Der “Source“(Quelltext)-Befehl ermöglicht es, eine weitere Datei einzu¬ 
schließen: 

.so «Dateiname» 
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Dieser Befehl ähnelt der “Include“-Option des Pascal-Compilers. 

Die letzten Befehle sind “Define“ (Definieren) und “End Define“ (Defi¬ 
nitionsende). Mit ihnen können Sie eigene parametrische Befehle definieren, 
die sowohl aus Formatbefehlen als auch aus Textzeilen bestehen: 

.de pl 
.ne 4 
.sp 1 
.in 10 
.rm 72 
.ti +5 
.en 


Definitionsnamen müssen wie normale Befehlsnamen zwei Zeichen lang 
sein. Wenn Sie wollen, können Sie damit sogar bestehende Befehlsnamen 
umdefinieren. Die Definitionen werden anhand ihres Namens aufgerufen: 

.pl 

Innerhalb der Definition stehende Textparameter werden durch die Notation 
“$1“, “$2“ usw. bezeichnet. Die Zahl hinter dem Dollarzeichen gibt an, auf 
welchen Parameter Bezug genommen wird, und darf nur im Bereich 1 bis 9 
liegen. Die Parameterreferenzen brauchen nicht durch Leerzeichen getrennt 
zu werden. 

.de fl 
.ti 60 
$1 

.sp 2 

Lieber $2: 

.sp 1 

Vielen Dank für Ihren letzten Beitrag zu Call-A.P.P.L.E. 
mit dem Titel: 

.ce 

.ul 

.en 
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Wird eine parametrische Definition aufgerufen, so werden die aktuellen Pa¬ 
rameter nach dem Definitionsnamen angegeben. Sollen in einem Parameter 
Leerzeichen auftreten, so kann man ihn auch in Hochkommata oder Anfüh¬ 
rungsstriche einschließen: 

.fl “26.Juli 1983“ Chris 

Ein Pascal-Textformatierprogramm 

Nicht spezifizierte Parameter werden durch leere Strings ersetzt, überflüssige 
Parameter ignoriert. 

Tabelle 2 enthält eine Übersicht über die verschiedenen Befehle und de¬ 
ren Vorgabewerte: 

Tab. 2: Befehlsübersicht 


Befehl 

Vorgabe¬ 

werf 

Break 

.bp n 

n = +1 

ja 

.br 


ja 

.ce n 

n = 1 

ja 

.de 


ja 

.en 


nein 

.fi 


ja 

.fo 

//// 

nein 

.he 

//// 

nein 

.in n 

n = 0 

nein 

.ls n 

n = 1 

nein 

.ne n 

n = 1 

ja 

.nf 


ja 

.pl n 

n = 66 

nein 

.rm n 

n = 80 

nein 

.so 


nein 

.sp n 

n = 1 

ja 

.ti n 

n = 0 

ja 

.ul n 

n = 1 

nein 


Der Quelltext des Formatierprogramms ist zu lang, um als einzelne Datei 
editiert werden zu können. Er wurde daher in zwei Textdateien mit den Na¬ 
men FORMAT.TEXT und FORMAT. 1.TEXT zerlegt, die im folgenden in 
dieser Reihenfolge abgedruckt sind. 
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(*$s+*) 

(*$C Copyright (c) 1981 Chris Wilson *) 
PROGRAM FORMAT; 


CONST 

HUGE = 1000; 
MAXDEFPOOL = 5000; 
PAGEWIDTH = 80; 
PAGELENGTH = 66; 


TYPE 

STRING255 = STRING[255]; 

ARGTYPE = (DEFAULTED,RELPLUS,RELMINUS, ABSOLUTE); 
CMDTYPE = (UNKNOWN,DEFINED,BP,BR,CE,DE,EN,FI,FO, 

HE,IND,LS,NE,NF,PL,RM,SO,SP,TI,UL); 

TITLEINFO = RECORD 
EMPTY: BOOLEAN; 

LEFTM, 

RIGHTM: INTEGER; 

LEFTS, 

CENTERS, 

RIGHTS: STRING255 
END; 

ENTRYP = A ENTRY; 

ENTRY = RECORD 

NAME: PACKED ARRAY [1..8] OF CHAR; 

LLINK, 

RLINK: ENTRYP; 

TYP: CMDTYPE; 

START, 

LINES: INTEGER 
END; 

VAR 

BACKSPACE: CHAR; 

DOTCOUNT,.. 

LINECOUNT: INTEGER; 

EMITPAGE, 

INCLUDING, 

NONCONSOLE: BOOLEAN; 

INCLUDEFILE, 

SOURCEFILE, 

DESTFILE: TEXT; 

SOURCENAME, 

DESTNAME: STRING; 

FILL: BOOLEAN; 

LSVAL, (* ZEILENABSTAND *) 

INVAL, (* EINRUECKUNG *) 

RMVAL, (* RECHTER RAND *) 

TIVAL, (* TEMPORAERE EINRUECKUNG *) 

CEVAL, (* ANZAHL DER ZU ZENTRIERENDEN ZEILEN *) 
ULVAL, (* ANZAHL DER ZU UNTERSTREICHENDEN ZEILEN *) 
CURPAGE, (* SEITENNUMMER *) 

NEWPAGE, (* NAECHSTE SEITENNUMMER *) 

LINENO, (* NAECHSTE AUSZUGEBENDE ZEILE *) 

PLVAL, (* SEITENLAENGE IN ZEILEN *) 

MlVAL, (* OBERER RAND, INCL. KOPFZEILE *) 
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M2VAL, (* RAND NACH KOPFZEILE *) 

M3VAL, (* RAND NACH DER LETZTEN TEXTZEILE *) 

M4VAL, (* UNTERER RAND INCL. FUSSZEILE *) 

BOTTOM, (* LETZTE ZEILE AUF DER SEITE *) 

OUTW, (* BREITE DES AKTUELL IN OUTBUF STEHENDEN TEXTES *) 
OUTVDS, (* ANZAHL DER IN OUTBUF BEFINDLICHEN WOERTER *) 

DIR: INTEGER; 

HEADER, 

FOOTER: TITLEINFO; 

HASNUMERICARG: SET OF CMDTYPE; 

INBUF, 

OUTBUF, 

BLANKS255: STRING255; 

UNDERLINE: STRING[2]; 

ROOT: ENTRYP; 

POOLINX: INTEGER; 

DEFPOOL: PACKED ARRAY [0..MAXDEFPOOL] OF CHAR; 

PROCEDURE COMMAND(VAR BUF: STRING255); 

FORWARD; 

PROCEDURE UPSTRING(VAR S: STRING); 


VAR 

I: INTEGER; 

BEGIN 

FOR I := 1 TO LENGTH(S) DO 
IF S[I] IN [ , a , ..*z'] THEN 
S[I] := CHR(ORD( f A')+(ORD(S[I])-ORD(’a*))); 

END; 

FUNCTION MIN(A, B: INTEGER): INTEGER; 

(*—*) 

BEGIN 

IF A < B THEN 
MIN := A 
ELSE 

MIN := B; 

END; 

FUNCTION MAX(A, B: INTEGER): INTEGER; 

(*==*) 

BEGIN 

IF A < B THEN 
MAX B 
ELSE 

MAX := A; 

END; 

PROCEDURE ERROR(S: STRING255); 

(♦—♦) 


BEGIN 

WRITELN; 

WRITELN( *>» 1 ,S, 1 <«»); 
CLOSE(DESTFILE,LOCK); 
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VfäITELN(LINECOUNT, 1 Zeilen*); 

EXIT(FORMAT); 

END; 

FUNCTION GETLINE(VAR INBUF: STRING255): BOOLEAN; 
(*—*) 


BEGIN 

IF INCLUDING THEN 

IF EOF(INCLUDEFILE) THEN 
BEGIN 

CLOSE(INCLUDEFILE); 

INCLUDING := FALSE; 

GETLINE := GETLINE(INBUF); 

EXIT(GETLINE); 

END 

ELSE 

READLN(INCLUDEFILE,INBUF) 

ELSE IF EOF(SOURCEFILE) THEN 
BEGIN 

INBUF := **; 

GETLINE := FALSE; 

EXIT(GETLINE); 

END 

ELSE 

READLN(SOURCEFILE,INBUF); 

LINECOUNT := SUCC(LINECOUNT); 

IF NONCONSOLE THEN 
BEGIN 

DOTCOUNT := SUCC(DOTCOUNT); 

WRITE(*•*); 

IF DOTCOUNT >= 50 THEN 
BEGIN 
WRITELN; 

WRITE(* < *,LINECOUNT:4,*>*); 

DOTCOUNT := 0; 

END; 

END; 

GETLINE := TRUE; 

END; 

FUNCTION ENTERCMD(CMD: STRING255; CT: CMDTYPE): ENTRYP 
(♦——♦) 

(* BEFEHL IN TABELLE EINFUEGEN *) 

VAR 

P, 

Q: ENTRYP; 

I: INTEGER; 


BEGIN 

UPSTRING(CMD); 

IF LENGTH(CMD) < 2 THEN 

ERROR(CONCAT(*Befehlsnarae zu kurz: ’,CMD)); 
NEW(P); 

WITH P A DO 
BEGIN 

NAME := * * • 

M0VELEFT(CMD[1],NAME[1],2); 





LLINK NIL; 

RLINK := NIL; 

END; 

IF ROOT = NIL THEN 
ROOT := P 
ELSE 

BEGIN 

I := TREESEARCH( ROOT, Q,P\NAME); 

IF I - 1 THEN 
Q A .RLINK := P 
ELSE IF I =* -1 THEN 
Q A .LLINK := P 
ELSE 

P := Q; (* NEUDEFINIEREN *) 

END; 

P A .TYP := CT; 

ENTERCMD := P; 

END; 

FUNCTION LOOKUP(VAR TOKEN: STRING255): ENTRYP; 

(*——-*) 

(* TABELLE NACH BEFEHL DURCHSUCHEN *) 

VAR 

P: ENTRYP; 

NAM: PACKED ARRAY [1..8] OF CHAR; 

BEGIN 

LOOKUP := NIL; 

IF LENGTH(TOKEN) >= 2 THEN 
BEGIN - 

NAM := * f ; 

MOVELEFT(TOKEN[1],NAM[1],2); 

IF TREESEARCH(ROOT,P,NAM) = 0 THEN 
LOOKUP := P; 

END; 

END; 

PROCEDURE SETVAL(VAR PARAM: INTEGER; VAL: INTEGER; TYP: ARGTYPE 
(* ■■■■—»)• DEFVAL, MINVAL, MAXVAL: INTEGER); 

(* PARAMETER EINSTELLEN UND WERTEBEREICH PRUEFEN *) 

BEGIN 

CASE TYP OF 
DEFAULTED: 

PARAM := DEFVAL; 

RELPLUS: 

PARAM := PARAM+VAL; 

RELMINUS: 

PARAM := PARAM-VAL; 

ABSOLUTE: 

PARAM := VAL 
END; (* CASE *) 

PARAM := MIN( PARAM,MAXVAL); 

PARAM := MAX(PARAM,MINVAL); 

END; 
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(*$I FORMAT.1 *) 


PROCEDURE HANDLEARGS(VAR S, ARGS: STRING255); 
(*=—==*) 


(* AUFRUFARGUMENTE VON MAKROS BEARBEITEN *) 


VAR 

I: INTEGER; 

ARG: STRING255; 

PROCEDURE GETARG(N: INTEGER; VAR ARG: STRING255); 
VAR I: INTEGER; 

A: STRING255; 

BEGIN 
A := ARGS; 

WHILE (N > 0) AND (LENGTH(A) > 0) DO 
BEGIN 

IF (A[ 1] = "") AND (LENGTH(A) > 1) THEN 
BEGIN 

DELETE(A,1,1); 

I := SCAN(LENGTH(A),="",A[1]); 

ARG := C0PY(A,1,I); 

DELETE(A,1,I); 

IF POS(''" ,A) = 1 THEN 
DELETE(A,1,1); 

END 

ELSE IF (A[l] = "") AND (LENGTH(A) > 1) THEN 
BEGIN 

DELETE(A,1,1); 

I := SCAN(LENGTH(A), = "",A[1]); 

ARG := C0PY(A,1,I); 

DELETE(A,1,1); 

IF POS("",A) = 1 THEN 
DELETE(A,1,1); 

END 

ELSE 

BEGIN 

I := SCAN(LENGTH(A),=' \A[1]); 

ARG := C0PY(A,1,I); 

DELETE(A,1,I); 

END; 

IF LENGTH(A) > 0 THEN 
BEGIN 

I := SCAN(LENGTH(A),<>' ',A[1]); 
DELETE(A,1,I); 

END; 

N := PRED(N); 

END; 

•IF N O 0 THEN 
ARG := "; 

END; 

BEGIN (* HANDLEARGS *) 

I := 1; 

WHILE I < LENGTH(S) DO 
BEGIN 

I := I+SCAN(LENGTH(S)+1-I,='$’,S[I]); 

IF I < LENGTH(S) THEN 



IF S[I+1] IN [ , l , .. , 9 f ] THEN 
BEGIN 

GETARG(0RD(S[I+1])-ORD( ! 0'),ARG); 

DELETE(S,I,2); 

IF LENGTH(S)+LENGTH(ARG) <= 255 THEN 
INSERT(ARG,S,I) 

ELSE 

ERROR('Ueberlauf bei Makrosubstitution'); 

I := I+LENGTH(ARG); 

END 

ELSE 

I := SUCC(I) 

ELSE 

I SUCC(I); 

END; 

END; 

FUNCTION COMTYPE(VAR BUF: STRING255; EXPAND: BOOLEAN): CMDTYPE; 
(*======*) 


(* BEFEHL DECODIEREN UND AUS PUFFER LOESCHEN *) 

VAR 

I, 

J: INTEGER; 

P: ENTRYP; 

S, 

CMDBUF: STRING255; 

BEGIN 

I := SCAN(LENGTH(BUF),=' f ,BUF[1]); 

CMDBUF := COPY(BUF,1,1); 

DELETE(BUF,1,I); 

IF LENGTH(BUF) > 0 THEN 
BEGIN 

I SCAN(LENGTH(BUF),<>' \BUF[1]); 

DELETE(BUF,1,I); 

END; 

DELETE(CMDBUF, 1,1); (.* *) 

UPSTRING(CMDBUF); 

P := LOOKUP(CMDBUF); 

IF P = NIL THEN 
COMTYPE := UNKNOWN 
ELSE 

WITH P A DO 
BEGIN 

COMTYPE := TYP; 

IF (TYP = DEFINED) AND EXPAND THEN 
BEGIN 

J := START; 

FOR I := 1 TO LINES DO 
BEGIN 

(* TRICKREICHER BEFEHL, BENUTZT LAENGENBYTE VON S *) 
MOVELEFT(DEFPOOL[J],S,1+ORD(DEFPOOL[J])); 

J := J+1+LENGTH(S); 

IF POS( f $',S) <> 0 THEN 
HANDLEARGS(S,BUF); 

IF POS(\\S) = 1 THEN 
COMMAND(S) 
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ELSE 
TXT(S); 
END; 

END; 

END; 


END; 


FUNCTION GETVAL(VAR BUF: STRING255; VAR TYP: ARGTYPE): INTEGER; 
(*—=*) 


(* ERMITTLE OPTIONALES NUMERISCHES ARGUMENT *) 

VAR 

I: INTEGER; 

CONTINUE: BOOLEAN; 

BEGIN 

IF LENGTH(BUF) = 0 THEN 
TYP := DEFAULTED 
ELSE IF POS( f +*,BUF) = 1 THEN 
TYP := RELPLUS 

ELSE IF POS(*-*,BUF) = 1 THEN 
TYP := RELMINUS 
ELSE 

TYP := ABSOLUTE; 

IF TYP IN [RELPLUS,RELMINUS] THEN 
DELETE(BUF,1,1); 

I := 0; 

CONTINUE := TRUE; 

WHILE CONTINUE AND (LENGTH(BUF) > 0) DO 
IF BUF[1] IN [ , 0 , .. , 9*] THEN 
BEGIN 

I := (I*10)+(0RD(BUF[1])-ORD('0*)); 

DELETE(BUF,1,1); 

END 

ELSE 

CONTINUE := FALSE; 

GETVAL := I; 

END; 

PROCEDURE GETTL(VAR BUF: STRING255; VAR TITLE: TITLEINFO); 
(*—*) 

(* TITEL AUS PUFFER HOLEN *) 

PROCEDURE GETPART(VAR BUF, S: STRING255); 

VAR I: INTEGER; 

DELIM: STRING[1]; 

BEGIN 

IF LENGTH(BUF) > 0 THEN 
BEGIN 

DELIM := COPY(BUF,1,1); 

DELETE(BUF,1,1); 

I := POS(DELIM,BUF); 

IF I = 0 THEN 
BEGIN 
S := BUF; 

BUF := ,f ; 

END 
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ELSE 

BEGIN 

I := PRED(I); 

S := C0PY(BUF,1,I); 

DELETE(BUF,1,I); 

END; 

END 

ELSE 

BEGIN 

I := PRED(I); 

S := C0PY(BUF,1,I); 

DELETE(BUF,1,I); 

END; 

END 
ELSE 
S : = * 1 ; 

END; 

BEGIN (* GETTL *) 

WITH TITLE DO 
BEGIN 

LEFTM := INVAL; 

RIGHTM := RMVAL; 

GETPART(BUF,LEFTS); 

GETPART(BUF,CENTERS); 

GETPART(BUF,RIGHTS); 

EMPTY := (LEFTS = ”) AND (CENTERS = '•) AND (RIGHTS = "); 
END; 

END; 

PROCEDURE DEFINE(VAR BUF: STRING255); 

(*——*) 


(* MAKRO DEFINIEREN *) 

VAR 

P: ENTRYP; 

CT: CMDTYPE; 

INBUF: STRING255; 

BEGIN 

P := ENTERCMD(BUF,DEFINED); 

WITH P A DO 
BEGIN 

START := POOLINX; 

LINES := 0; 

WHILE GETLINE(INBUF) DO 

IF P00LINX+1+LENGTH(INBUF) <= MAXDEFPOOL THEN 
BEGIN 

(* TRICKREICHER BEFEHL, BENUTZT LAENGENBYTE VON INBUF *) 

MOVELEFT(INBUF,DEFPOOL[POOLINX],1+LENGTH(INBUF)); 

POOLINX := P00LINX+1+LENGTH(INBUF); 

LINES := SUCC(LINES); 

IF POS(\ T ,INBUF) = 1 THEN 
BEGIN 

CT := COMTYPE(INBUF,FALSE); 

IF CT = DE THEN 

ERROR(CONCAT(Geschachtelte Definitionen verboten: f ,BUF)) 
ELSE IF CT = EN THEN 
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BEGIN 

LINES := PRED(LINES); 

EXIT(DEFINE); 

END; 

END 

END 

ELSE 

ERROR(CONCAT('Definition zu lang: ',BUF)); 

END; 

END; 

PROCEDURE COMMAND; (* VAR BÜF: STRING255 *) 
(*——*) 

(* FORMATIERBEFEHL AUSFUEHREN *) 


VAR 

VAL, 

NEVAL, 

SPVAL: INTEGER; 

CT': CMDTYPE; 

TYP: ARGTYPE; 

BEGIN 

CT := COMTYPE(BÜF,TRUE); 

IF CT IN HASNUMERICARG THEN 
VAL := GETVAL(BUF,TYP); 

CASE CT OF 
UNKNOWN, DEFINED: 

BEGIN 

END; 

BP: 

BEGIN 

IF LINENO > 0 THEN 
SPACE(HUGE); 

SETVAL(CÜRPAGE,VAL,TYP,SUCC(CURPAGE),-HUGE,HUGE) 
NEWPAGE := CURPAGE; 

END; 

BR: 

BRK; 

CE: 

BEGIN 

BRK; 

SETVAL(CEVAL,VAL,TYP,1,0,HUGE); 

END; 

DE: 

BEGIN 

BRK; 

DEFINE(BUF); 

END; 

EN: 

ERROR('.en ausserhalb von Definition 1 ); 

FI: 

BEGIN 

BRK; 

FILL := TRUE; 

END; 

FO: 

GETTL(BUF,FOOTER); 




HE: 

GETTL(BUF, HEADER); 

IND: 

BEGIN 

SETVAL(INVAL,VAL, TYP,0,0,PRED(RMVAL)); 

TIVAL := INVAL; 

END; 

LS: 

SETVAL(LSVAL,VAL,TYP,1,1,HUGE); 

NE: 

BEGIN 

BRK; 

NEVAL 1; (* FALLS VAL RELATIV IST *) 

SETVAL(NEVAL,VAL,TYP,1,0,HUGE); 

NEVAL := NEVAL*LSVAL; 

IF LINENO+PRED(NEVAL) > BOTTOM THEN 
SPACE(HUGE); 

END; 

NF: 

BEGIN 

BRK; 

FILL := FALSE; 

END; 

PL: 

BEGIN 

SETVAL (PLV AL, VAL, TYP, PAGELENGTH,M1VAL+M2VAL+M3VAL+M4VAL+1, HUGE) ; 
BOTTOM := PLVAL-M3VAL-M4VAL; 

END; 

RM: 

SETVAL(RMVAL,VAL,TYP,PAGEWIDTH,SUCC(TIVAL),255); 

SO: 

BEGIN 

UPSTRING(BUF); 

IF BUF = ' ’ THEN 
EXIT(COMMAND) 

ELSE IF POS('.TEXT',BUF) = 0 THEN 
IF BUFfLENGTH(BUF)] <> 1 :' THEN 
IF BUFfLENGTH(BUF)] ' THEN 

BUF := CONCAT(BUF,'.TEXT') 

ELSE 

DELETE(BUF,LENGTH(BUF),1); 

IF INCLUDING THEN 
ERROR( 1 Fileschachtelung verboten') 

ELSE 

BEGIN 

INCLUDING := TRUE; 

RESET(INCLUDEFILE,BUF); 

END; 

END; 

SP: 

BEGIN 

SPVAL :=» 1; (*'FALLS VAL REUTIV IST *) 

SETVAL(SPVAL,VAL,TYP,1,0,HUGE); 

SPACE(SPVAL); 

END; 
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Tis 

BEGIN 

BRK; 

SETVAL(TIVAL,VAL,TYP,0,0,RMVAL); 

END; 

UL: 

SETVAL(ULVAL,VAL,TYP,1,0,HUGE) 

END; (* CASE *) 

END; 

PROCEDURE INIT; 

(*—•> 

VAR 

P: ENTRYP; 

BEGIN 

BACKSPACE := CHR(8); 

DOTCOUNT := 0; 

LINECOUNT 0; 

INCLUDING := FALSE; 

FILL := TRUE; 

LSVAL := 1; 

INVAL := 0;. 

RMVAL := PAGEWIDTH; 

TIVAL 0; 

CEVAL := 0; 

ULVAL := 0; 

CURPAGE := 0; 

NEWPAGE := 1; 

LINENO := 0; 

PLVAL := PAGELENGTH; 

MlVAL := 2; 

M2VAL := 2; 

M3VAL := 2; 

M4VAL := 2; 

BOTTOM := PLVAL-M3VAL-M4VAL; 

OUTW := 0; 

OUTVDS := 0; 

DIR := 0; 

HEADER.EMPTY := TRUE; 

FOOTER.EMPTY := TRUE; 

HASNUMERICARG := [BP,CE,IND,LS,NE,PL,RM,SP,TI,UL]; 

OUTBUF 

(*$R-*) 

BLANKS255[0] := CHR(255); 

(*$R+*) 

FILLCHAR(BLANKS255[1],255, 1 f ); 

UNDERLINE := 

UNDERLINE[2] := BACKSPACE; 

ROOT := NIL; 

POOLINX := 0; 

P := ENTERCMD(’BP',BP); 

P := ENTERCMD('BR T ,BR); 

P := ENTERCMD( 1 CE f ,CE); 

P := ENTERCMD(* DE *,DE); 

P := ENTERCMD(*EN*,EN); 

P := ENTERCMD( f FI*,FI); 

P := ENTERCMD(*FO 1 ,FO); 

P := ENTERCMD(’HE’,HE); 
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P := ENTERCMD('NF',NF) 
P := ENTERCMD(’PL'.PL) 
P := ENTERCMD('RM',RM) 
P : = ENTERCMD('SO'.SO) 
P := ENTERCMD('SP'.SP) 
P := ENTERCMD('TI',TI) 
P : = ENTERCMD('UL',UL) 
END; 


• (* ===== HAUPTPROGRAMM ======== *) 

BEGIN 

INIT; 

PAGE(OUTPUT); 

WRITELN('Format (27.7.81)'); 

WRITELNCCopyright (c) 1981 Chris Wilson'); 

WRITELN; 

WRITE('Textdatei: '); 

READLN(SOURCENAME); 

UPSTRING(SOURCENAME); 

IF SOURCENAME = '' THEN 
EXIT(FORMAT) 

ELSE IF POS('.TEXT'.SOURCENAME) = 0 THEN 

IF SOURCENAME[LENGTH(SOURCENAME)] <> ':' THEN 
IF SOURCENAME[LENGTH(SOURCENAME)] <> '.’ THEN 
SOURCENAME := CONCAT(SOURCENAME,'.TEXT') 
ELSE 

DELETE(SOURCENAME,LENGTH(SOURCENAME),1); 

WRITE('Ausgabedatei: '); 

READLN(DESTNAME); 

UPSTRING(DESTNAME); 

IF DESTNAME = '' THEN 
DESTNAME := 'PRINTER:' 

aSE IF POS ('.TEXT'.DESTNAME) = Ö THEN 
IF DESTNAME[LENGTH(DESTNAME)] <> ':' THEN 
IF DESTNAME[LENGTH(DESTNAME)] <> '.' THEN 
DESTNAME := CONCAT(DESTNAME,'.TEXT') 

ELSE 

DELETE(DESTNAME,LENGTH(DESTNAME),1); 

NONCONSOLE := (POS(’CONSOLE:'.DESTNAME) = 0) 

AND (POSCSYSTERM: '.DESTNAME) = 0) 

AND (POS('#l:\DESTNAME) = 0)' 

AND (POS('#2:'.DESTNAME) = 0); 

EMITPAGE := (POS('PRINTER:'.DESTNAME) = 1) 

OR (POS('#6:'.DESTNAME) = 1) 

OR NOT NONCONSOLE; 

RESET(SOURCEFILE,SOURCENAME); 

REWRITE(DESTFILE,DESTNAME); 

IF NONCONSOLE THEN 
WRITE('<',LINECOUNT:4,'>'); 

WHILE GETLINE(INBUF) DO 
IF POS('.'.INBUF) = 1 THEN 
COMMAND(INBUF) 

ELSE 

TXT(INBUF); 

IF LINENO > 0 THEN 
SPACE(HUGE); 
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CLOSE(DESTFILE,LOCK); 

IF NONCONSOLE THEN 
WRITELN* 

WRITELN(LINECOUNT, 1 Zeilen 1 ); 
END. 


(* Copyright (c) 1981 by Chris Wilson *) 

PROCEDURE SKIP(N: INTEGER); 

(*-—*) 

(* AUSGABE VON N LEERZEILEN *) 

VAR 

I: INTEGER; 

BEGIN 

FOR I := 1 TO N DO 
WRITELN(DESTFILE); 

END; 

PROCEDURE PUTTL(VAR TITLE: TITLEINFO; PAGENO: INTEGER); 
(*_*) 

(* GIB TITELZEILE MIT OPTIONALER SEITENNUMMER AUS *) 

VAR 

I, 

J: INTEGER; 

S: STRING255; 

PAGES: STRING; 


PROCEDURE STR(VAL: INTEGER; VAR S: STRING); 
VAR D, I: INTEGER; 

MINUS: BOOLEAN; 

BEGIN 

MINUS := VAL < 0; 

VAL := ABS(VAL); 

S := 1 

I := 6; 

REPEAT 

D := VAL MOD 10; 

VAL := VAL DIV 10; 

S[I] := CHR(0RD('0 , )+D); 

I := PRED(I) 

UNTIL VAL = 0; 

IF MINUS THEN 
BEGIN 
S[I] := 

I := PRED(I); 

END; 

DELETE(S,1,1); 

END; 


PROCEDURE REPLACE(VAR S: STRING255); 

VAR X: INTEGER; 

BEGIN 

REPEAT 

I ;= POS('#',S); 

IF I <> 0 THEN 
BEGIN 

DELETE(S,I,l)i 
INSERT(PAGES,S,I); 

END 

UNTIL 1=0; 

END; 

BEGIN (* PUTTL *) 

WITH TITLE DO 

IF NOT EMPTY THEN 
BEGIN 

STR(PAGENO,PAGES); 

IF LEFTM > 0 THEN 

WRITE(DESTFILE,' ':LEFTM); 

I := LEFTM; 

IF LENGTH(LEFTS) > 0 THEN 
BEGIN 

S ;= LEFTS; 

REPLACE(S); 

WRITE(DESTFILE,S); 

I':= I+LENGTH(S); 

END; 

IF LENGTH(CENTERS) > 0 THEN 
BEGIN 

S := CENTERS; 

REPLACE(S); 

J := MAX(((LEFTM+RIGHTM)-LENGTH(S)) DIV 2,0); 
IF I < J THEN 
WRITE(DESTFILE,' ':(J-I)); 
WRITE(DESTFILE.S); 

I ;= J+LENGTH(S); 

END; 

IF LENGTH(RIGHTS) > 0 THEN 
BEGIN 

S := RIGHTS; 

REPLACE(S); 

J := RIGHTM-LENGTH(S); 

IF I < J THEN 
WRITE(DESTFILE,' ’:(J-I)); 

WRITE(DESTFILE,S); 

END; 

END; 

WRITELN(DESTFILE); 

END; 

PROCEDURE PHEAD; 

(*“—*) 


(* KOPFZEILE AUSGEBEN *) 
BEGIN 

CURPAGE := NEWPAGE; 
NEWPAGE := SUCC(NEWPAGE); 
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IF EMITPAGE THEN 
PAGE(DESTFILE); 

IF Ml VAL > 0 THEN 
BEGIN 

SKIP(PRED(M1VAL)); 
PUTTL(HEADER,CURPAGE); 
END; 

SKIP(M2VAL); 

LINENO := M1VAL+M2VAL+1; 
END; 


PROCEDURE PFOOT; 

(*—*) 


(* FUSSZEILE AUSGEBEN *) 
BEGIN 

SKIP(M3VAL); 

IF M4VAL > 0 THEN 
BEGIN 

PUTTL(FOOTER,CURPAGE); 
SKIP(PRED(M4VAL)); 

END; 

END; 


PROCEDURE PUT(VAR BUF: STRING255); 

(*—*) 

(* ZEILE UNTER BEACHTUNG VON ZEILENABSTAND UND EINRUECKUNG AUSGEBEN *) 
BEGIN 

IF (LINENO = 0) OR (LINENO > BOTTOM) THEN 
PHEAD; 

IF TIVAL > 0 THEN 
WRITE(DESTFILE,' 1 :TIVAL); 

TIVAL := INVAL; 

WRITELN(DESTFILE,BUF); 

SKIP(MIN(PRED(LSVAL),BOTTOM-LINENO)); 

LINENO := LINENO+LSVAL; 

IF LINENO > BOTTOM THEN 
PFOOT; 

END; 


PROCEDURE BRK; 

(**-*) 

(* AKTUELLE ZEILE AUSGEBEN *) 
BEGIN 

IF LENGTH(OUTBUF) > 0 THEN 
PUT(OUTBUF); 

OUTW := 0; 

OUTWDS := 0; 

OUTBUF := r1 ; 

END; 

PROCEDURE SPACE(N: INTEGER); 
(♦—*) 



(* N LEERZEILEN AUSGEBEN ODER UNTEREN SEITENRAND EINSTELLEN *) 

BEGIN 

BRK; 

IF LINENO <= BOTTOM THEN 
BEGIN 

IF LINENO = 0 THEN 
PHEAD; 

SKIP(MIN(N,(B0TT0M+1)-LINEN0)); 

LINENO := LINENO+N; 

IF LINENO > BOTTOM THEN 
PFOOT; 

END; 

END; 

PROCEDURE LEADBL(VAR BUF: STRING255); 

(*==—*) 

(* FUEHRENDE LEERZEICHEN LOESCHEN, TIVAL EINSTELLEN *) 

VAR 

I: INTEGER; 

BEGIN 

BRK; 

IF LENGTH(BUF) > 0 THEN 
BEGIN 

I := SCAN(LENGTH(BUF),<>* ',BUF[1]); 

DELETE(BUF,1,1); 

IF LENGTH(BUF) > 0 THEN 
TIVAL := I; 

END; 

END; 

FUNCTION WIDTH(VAR BUF: STRING255): INTEGER; 

(*===*) 

(* BERECHNE BREITE DES STRINGS *) 

VAR 

I, 

BS, 

COUNT: INTEGER; 

BEGIN 

IF LENGTH(BUF) > 0 THEN 
BEGIN 

I := SCAN(LENGTH(BUF),=BACKSPACE,BUF[1]); 

IF I = LENGTH(BUF) THEN 
WIDTH I 
ELSE 
BEGIN 
BS := 1; 

I := 1+2; 

COUNT := (LENGTH(BUF)+1)-I; 

WHILE COUNT > 0 DO 
BEGIN 

I :=„I+SCAN(COUNT,=BACKSPACE,BUF[I]); 

COUNT := (LENGTH(BUF)+1)-I; 

IF COUNT <> 0 THEN 
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BEGIN 

BS := SUCC(BS); 

I := SUCC(I); 

COUNT := P RED (COUNT); 

END; 

END; 

WIDTH := LENGTH(BUF)-BS; 

END; 

END 

ELSE 

WIDTH := 0; 

END; 

PROCEDURE SPR£AD(VAR BUF: STRING255; NEXTRA, OUTWDS: INTEGER); 
(*—■*) 

(* FUER RECHTEN RANDAUSGLEICH WOERTER AUSEINANDER RUECKEN *) 
VAR 

I. 

NB, 

NE, 

NHOLES: INTEGER; 

BEGIN 

IF (NEXTRA > 0) AND (OUTWDS > 1) THEN 
BEGIN 

DIR := 1-DIR; 

NE := NEXTRA; 

NHOLES := PRED(OUTWDS); 

I := 1; 

WHILE NE > 0 DO 
BEGIN 

I := I+SCANtaENGTHtBUFHl)-!,^ ’,BUF[I]); 

IF DIR - 0 THEN 
NB := (PRED(NE) DIV NH0LES)+1 
ELSE 

NB := NE DIV NHOLES; 

NE := NE-NB; 

NHOLES := PRED(NHOLES); 

INSERT(COPY(BLANKS255,1,NB),BUF,I); 

I := I+NB+1; 

END; 

END; 

END; 

PROCEDURE PUTWRD(VAR WRDBUF: STRING255); 

(*====*) 

(* WORT IN OUTBUF SCHREIBEN; RANDAUSGLEICH BEACHTEN *) 

VAR 

W, 

LAST, 

LLVAL: INTEGER; 

BEGIN 

W := WIDTH(WRDBUF); 

LLVAL := RMVAL-TIVAL; 





IF LENGTH(OUTBUF) > 0 THEN 
BEGIN 

LAST := LENGTH(OÜTBÜF)+l+LENGTH(WRDBUF); 

IF (OUTW+l+W > LLVAL) OR (LAST > 255) THEN 
BEGIN 

SPREAD( OUTBUF, LLVAL-OUTW, OUTWDS ); 

BRK; 

END; 

END; 

IF LENGTH(OUTBUF) = 0 THEN 
BEGIN 

OUTBUF := WRDBUF; 

OUTW : = W; 

END 

ELSE 

BEGIN 

INSERT( 1 1 ,OUTBUF,LENGTH(OUTBUF)+l); 

INSERT(WRDBUF,OUTBUF,LENGTH(OUTBUF)+l); 
OUTW := OUTW+l+W; 

END; 

OUTWDS := SUCC(OUTWDS); 

END; 

PROCEDURE CENTER(VAR BUF: STRING255); 
(*=—=*) 


(* ZEILE DURCH SETZEN VON TIVAL ZENTRIEREN *) 
BEGIN 

TIVAL := MAX(((RMVAL+TIVAL)-WIDTH(BUF)) DIV 2,0); 
END; 

PROCEDURE UNDERL(VAR BUF: STRING255); 

(*—♦) 

(* ZEILE UNTERSTREICHEN *) 

VAR 

I: INTEGER; 


BEGIN 
I := 1; 

WHILE (I < LENGTH(BUF)) AND (I < 254) DO 
BEGIN 

IF BUF[I] <> 1 1 THEN 
BEGIN 

INSERT(UNDERLINE,BUF,I); 

I := 1+2; 

END; 

I := SUCC(I); 

END; 

END; 

FUNCTION GETWRD(VAR INBUF, OUT: STRING255): INTEGER; 

(*—*) 

(* NICHTLEERES WORT VON INBUF NACH OUT KOPIEREN UND AUS INBUF LOESCHEN *) 
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VAR 

I: INTEGER; 

BEGIN 

IF LENGTH(INBUF) > 0 THEN 
BEGIN 

I := SCAN(LENGTH(INBUF),<> 1 ',INBUF[1]); 
DEUTE (INBUF, 1,1); 

END; 

IF LENGTH(INBUF) > 0 THEN 
BEGIN 

I := SCAN(LENGTH(INBUF),=' 1 ,INBUF[1]); 
OUT := COPY(INBUF,1,1); 

DELETE(INBUF,1,1); 

GETWRD := I; 

END 
ELSE 
BEGIN 
OUT := "; 

GETWRD := 0; 

END; 

END; 


PROCEDURE TXT(VAR INBUF: STRING255); 
(*==*) 


(* TEXTZEILEN VERARBEITEN *) 


VAR 

WRDBUF: STRING255; 

BEGIN 

IF LENGTH(INBUF) = 0 THEN 
LEADBL(INBUF) 

ELSE IF INBUF[1] = ' 1 THEN 
LEADBL(INBUF); 

IF ULVAL > 0 THEN 
BEGIN 

UNDERL(INBUF); 

ULVAL := PRED(ULVAL); 

END; 

IF CEVAL > 0 THEN 
BEGIN 

CENTER(INBUF); 

PUT(INBUF); 

CEVAL := PRED(CEVAL); 

END 

ELSE IF LENGTH(INBUF) = 0 THEN 
PUT(INBUF) 

ELSE IF NOT FILL THEN 
PUT(INBUF) 

ELSE 

WHILE GETWRD(INBUF,WRDBUF) > 0 DO 
PUTWRD(WRDBUF); 

END; 


237 


» 


1 .». 


:o 




















< * * V/ .. f U ~ 



Dean Rosenhain 


Ein Pascal- 
Zeicheneditor 


Im APPLE-Pascal gibt es zwei Befehle, mit denen man Text auf der HI- 
RES-Grafikseite schreiben kann: WCHAR und WSTRING. Der von diesen 
Befehlen benutzte Zeichensatz ist in einem auf Diskette gespeicherten Daten¬ 
file namens SYSTEM.CHARSET gespeichert. Eine genaue Beschreibung 
des Datenformats dieser 1024 Bytes finden Sie auf den Seiten 99 und 100 des 
APPLE Pascal Language Reference Manual. Jedes Zeichen wird in acht auf¬ 
einanderfolgenden Bytes in einem Array von 128 Zeichen untergebracht. Die 
Pascal-Deklaration zur Erzeugung neuer Zeichensätze oder zur Modifika¬ 
tion bereits vorhandener sieht wie folgt aus: 

TYPE 

BITS = 0..7; 

BYTE = SET OF BITS; 

CHARIMAGE = PACKED ARRAY [0..7] OF BYTE; 

CHARSET = PACKED ARRAY [0..127] OF CHARIMAGE; 

VAR 

CHARACTERS : CHARSET; 

CHARFILE : FILE OF CHARSET; 

Es gibt einen weiteren Weg, Textzeichen in der HI-RES-Grafik darzustellen, 
nämlich mit DRAWBLOCK, einer Turtlegraphics-Prozedur, die ein Bit- 
Array auf den Bildschirm kopiert und so die Darstellung von Bildern mög¬ 
lich macht. WCHAR und WSTRING benutzen die DRAWBLOCK- 
Prozedur (weitere Informationen über die Verwendung von Bit-Arrays fin¬ 
den Sie in Loy Spurlocks Artikel in Applesauce, Vol. 1, Heft 7 (Oktober 
1979), der in Call-A.P.P.L.E. vom Januar 1980 nachgedruckt wurde). 

Um zu erklären, wie DRAWBLOCK zur Zeichenausgabe benutzt werden 
kann, nehmen wir an, daß SYSTEM.CHARSET von einer Diskette gelesen 
und in ein Array namens CHARACTERS (mit der o.g. Typendeklaration) 
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gespeichert wurde. Will man z.B. das Zeichen “A“ auf der Grafikseite aus¬ 
geben, so benutzt man dazu den Befehl: 

DRAWBLOCK (CHARACTERS[65],1,0,0,7,8,140,90,10); 

Das Array, das auf den Bildschirm kopiert wird, ist in diesem Fall CHA- 
RACTERS [65], da “A“ den ASCII-Code 65 hat. Wie man aus der obigen 
Deklaration ersehen kann, besteht CHARACTERS [65] aus acht Bytes von 
CHARIMAGE. Die anderen Parameter geben folgendes an: 

“1“ = Anzahl der Bytes, die von jeder Punktreihe des Zeichens belegt 

werden. 

“0“ = Anzahl der Punkte oder Bits, die in der Zeile vor Beginn des zu ko¬ 

pierenden Arraybereiches übersprungen werden sollen. 

“0“ = Anzahl der Punkte, die in der Vertikalen übersprungen werden sol¬ 

len. 

“7“ = Breite des Bildes in Punkten. 

“8“ =Höhe des Bildes in Punkten. 

“140“ = X-Koordinate der unteren linken Bildecke. 

“90“ = Y-Koordinate der unteren linken Bildecke. 

“10“ = Anzeigemodus. 

Der Anzeigemodus ist ein nützlicher Parameter, mit dem man angeben 
kann, auf welche Weise das Bit-Array auf den Bildschirm kopiert werden 
soll (weitere Einzelheiten im Handbuch). Es gibt insgesamt 16 verschiedene 
Anzeigemodi, wie z.B. die inverse Darstellung (Modus Nr.5). Benutzt man 
Modus 6 (Exklusiv-ODER), kann man durch zweimaliges Schreiben des glei¬ 
chen Textes an der gleichen Bildschirmstelle diesen Text wieder löschen, oh¬ 
ne daß der ursprüngliche Bildhintergrund zerstört wird. Der Standard- 
Schreibmodus ist Nr. 10. Dabei werden die Bytes des Arrays direkt auf den 
Bildschirm kopiert. 

Wenn es die DRAWBLOCK-Prozedur nicht gäbe, wäre es schwierig (und 
langwierig), Zeichensätze auf den Bildschirm zu kopieren, die nicht in 
SYSTEM.CHARSET stehen. Mit DRAWBLOCK dagegen kann man sogar 
mehrere Zeichensätze gleichzeitig in ein- und demselben Programm benut- 
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zen. Ohne allzu große Schwiereigkeiten kann man auch größere Zeichen de¬ 
finieren und die DRAWBLOCK-Parameter ihrer Ausgabe entsprechend an¬ 
passen. Wenn die Zeichen mit SYSTEM.CHARSET kompatibel sein sollen, 
müssen sie natürlich den obigen Deklarationen entsprechen. 

Der hier vorgestellte Zeichensatzeditor wurde so entworfen, daß seine 
Benutzung recht einfach erlernt werden kann. Obwohl das Programmlisting 
halbwegs selbsterklärend ist, sind einige Eigenschaften des Programms und 
seiner Funktionsweise erwähnenswert. 

Bei Programmstart zeigt die Prozedur SETUP den aktuellen Zeichensatz 
(der anfangs nur aus Zufallspunkten besteht). Danach gibt die Prozedur 
MENU1 einige der zur Verfügung stehenden Befehle aus. Durch Drücken 
der Leertaste wird MENU2 aufgerufen und der andere Teil des Befehlssatzes 
angezeigt. Die INPUT-Prozedur zeigt jeden Tastendruck auf dem HI-RES- 
Bildschirm an. Anstelle des Dateinamens “SYSTEM.CHARSET“ kann 
man auch angeben. Mit FILEIN werden Datenfiles gelesen und ggf. 
auftretende E/A-Fehler abgefangen. Die entsprechende Prozedur zum Spei¬ 
chern von Zeichensätzen heißt FILEOUT. 

Das Zeichen, das editiert werden soll, wird mit einem quadratischen Cur¬ 
sor ausgewählt (HILITE-Prozedur), der sich mit den Tasten “W“, “A“, 
“S“ und “Z“ über den Zeichensatz bewegen läßt. Mit dem GRAB-Befehl 
kann man das so gewählte Zeichen im vergrößerten Maßstab auf der rechten 
Bildseite sichtbar machen. Die Tasten “I“, “J“, “K“ und “M“ verschieben 
das Fadenkreuz, das zum Setzen und Löschen einzelner Punkte dient. Mit 
“Y“ und “N“ läßt sich der durch das Kreuz bezeichnete Punkt setzen bzw. 
löschen. Mit dem Push-Befehl wird das geänderte Zeichen bei der Position 
des HILITE-Cursors in den Zeichensatz zurückkopiert. 

Wenn Sie Ihren eigenen Zeichensatz erstellt haben, können Sie ihn in 
SYSTEM.CHARSET umbenennen und mit Hilfe der Turtlegraphics- 
Routinen WCHAR und WSTRING auf ihn zugreifen. Dazu müssen Sie den 
Filer aufrufen und die SYSTEM.CHARSET-Datei umbenennen, z.B.: 

Change?APPLEl :SYSTEM.CHARSET 

To?APPLEl :OLD.CHARSET 

Danach benennen Sie Ihren eigenen Zeichensatz in “SYSTEM.CHARSET“ 
um, damit er vom Betriebssystem gelesen werden kann. Das erreicht man 
zum Beispiel durch: 

Transfer?MYDISK:MYSET 

To?APPLEl:SYSTEM.CHARSET 
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oder, wenn sich der Zeichensatz schon auf der Diskette befindet: 


Change?MYSET 

To?SYSTEM.CHARSET 


Von diesem Augenblick an können die Turtlegraphics-Prozeduren auf Ihren 
Zeichensatz zugreifen. 


PROGRAM CHARED; 

( *****=ie**********+****5jc**5}:**Xe5{c***5Sc**** ) 

(* *) 

HI-RES ZEICHEN *) 

EDITOR *) 

VERSION 2.2.1 *) 

*) 

VON... Dean Rosenhain *) 

*) 


(* 

(* 

(* 

(* 

(* 

(* 




USES TURTLEGRAPHICS; 

TYPE BITS = 0..7; 

BYTE = SET OF BITS; 

CHARIMAGE= PACKED ARRAY[0.,7] OF BYTE; 
CHARSET= PACKED ARRAY[0..127] OF CHARIMAGE; 

VAR CURRENTSET:CHARSET; 

CURRENTCH :CHARIMAGE; 

CHARFILE :FILE OF CHARSET; 

DISKIO,I,OLD,H,V,OLDH,OLDV:INTEGER; 

CHOICE:CHAR; 

ONE:BOOLEAN; 


PROCEDURE PRINTAT(X,Y:INTEGER; SiSTRI^G); 
BEGIN 

MOVETO(X,Y); 

WSTRING(S); 

END; 


PROCEDURE INPUT(X,Y:INTEGER;VAR S:STRING); 

(* Mit dieser Prozedur koennen Strings *) 
(* auf der Graphikseite eingegeben *) 

(* werden. Dabei wird die Moeglichkeit *) 
(* gegeben, Tippfehler mit der Links- *) 
(* Pfeiltaste zu korrigieren. *) 

VAR TEMP :STRING; 

S1 :STRING[1]; 

CH :CHAR; 

BEGIN 

TEMP: = * *; 

S1:= 1 *; 
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MOVETO(X,Y); 

REPEAT 

READ(KEYBOARD,CH); 

IF CH IN [ 1 !'..’Z f ] THEN 
BEGIN 
WCHAR(CH); 

S1[1]:=CH; 

TEMP:=CONCAT(TEMP,S1); 

END 

ELSE 

IF (0RD(CH)=8) AND (LENGTH(TEMP)>0) THEN 
BEGIN 

DELETE(TEMP,LENGTH(TEMP),1); 

MOVETO(TURTLEX-7,Y); 

WCHAR( 1 '); 

MOVETO(TURTLEX-7,Y); 

END; 

UNTIL CH=CHR(32); 

S:=TEMP; 

END; 

PROCEDURE SHOWCHAR(NUM:INTEGER); 

VAR X,Y:INTEGER; 

BEGIN 

X:=10*(NUM MOD 16)+5; 

Y:=150-(NUM DIV 16)*10; 
DRAWBLOCK(CURRENTSET[NUM],1,0,0,7,8,X,Y,10); 
END; 

PROCEDURE DISPLAYSET; 

VAR NUM:INTEGER; 

BEGIN 

FOR NUM:= 0 TO 127 DO 
SHOWCHAR(NUM); 

END; 


PROCEDURE DISKERROR(ERR:INTEGER); 

VAR S:STRING; 

TIME:INTEGER; 

BEGIN 

CHARTYPE(5); (* INVERSE DARSTELLUNG *) 

IF ERR IN [6,7,10] THEN 

PRINTAT(10,2,falscher Dateiname, nicht verfuegbar 1 ) 
ELSE 
BEGIN 

STR(ERR,S); 

S:=CONCAT('Diskettenfehler Nr. ’,S); 
PRINTAT(10,2,S); 

END; 


WRITELN(CHR(7)); 

FOR TIME:= 1 TO 3000 DO (* nichts *); 

CHARTYPE(IO); (* Normalmodus *) 

WRITELN(CHR(7)); 

PRINTAT(10,2, 1 1 ); 

END; 


PROCEDURE FILEIN; 

VAR FILENAME:STRING; 


BEGIN 

INPITI (101,27, FILENAME); 

PRINTAT(101,27,' '); 

IF LENGTH(FILENAME)=0 THEN EXIT(FILEIN); 

IF FILENAME='*' THEN FILENAME:='SYSTEM.CHARSET'; 
(*$I-*) 

RESET(CHARFILE,FILENAjME) ; 

DISKI0:=I0RESULT; 

IF DISKIOOO THEN DISKERROR(DISKIO) 

ELSE 

BEGIN 

CURRENTSET:= CHARFILE'; 

CLOSE(CHARFILE,LOCK); 

DISPLAYSET; 

PRINTAT(90,160,' '); 

PRINTAT(90,160,FILENAME); 

END; 

(*$I+*) - 

END; 

PROCEDURE HILITE(LETTER:INTEGER; C0L0R:SCREENC0L0R); 
VAR I:INTEGER; 

BEGIN 

PENCOLOR(NONE); 

MOVETO(10*(LETTER MOD 16)+3,149-(LETTER DIV 16)*10); 
PENCOLOR(COLOR); 

TURNTO(O); 

FOR I:=l TO 4 DO 
BEGIN 

MOVE(IO); (* Quadrat zeichnen *) 

TURN(90); 

END; 

PENCOLOR(NONE); 

END; 

PROCEDURE CROSSHAIR(X,Y:INTEGER); 

BEGIN 

PENCOLOR(NONE); 

MOVETO(201+X*10,83+Y*10); 

TURNTO(O); 

PENCOLOR(REVERSE); 

M0VE(4); 

PENCOLOR(NONE); 

M0VET0(203+X*10,81+Y*10); 

TURNT0(90); 

PENCOLOR(REVERSE); 

M0VE(4); 

PENCOLOR(NONE); 

END; 

PROCEDURE EXPAND(CH:CHARIMAGE); 

VAR R0W,D0T:0..7; 

BEGIN 

FOR ROW:= 0 TO 7 DO 
FOR DOT:= 0 TO 6 DO 
BEGIN 

MOVETO(200+D0T*10,80+R0W*10); 

IF DOT IN CH[ROW] THEN WCHAR(CHR(1)) 

ELSE WCHAR(’ '); 

END; 
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END; (* EXPAND *) 

PROCEDURE CLEARFIELD; 
VAR R0W:0..7; 

BEGIN 

FOR ROW:=0 TO 7 DO 
OIRRENTCH[ROW]:=[]; 
EXPAND(CURRENTCH); 
END; 

PROCEDURE SETUP; 

VAR J:INTEGER; 

BEGIN 

INITTURTLE; 


PRINTAT(0,180,'Pascal SYSTEM.CHARSET Editor Version 2'); 
PRINTAT(155,170,'von D. Rosenhain'); 

PRINTAT(0,160,'Zeichensatz:'); (* KEIN ZEICHENSATZ *) 

DISPLAYSET; 

0LD:=0; I:=0; 

HILITE(I,WHITE); 

M0VET0(199,79); (* QUADRAT ZEICHNEN *) 

PENCOLOR(WHITE); 

M0VET0(268,79); 

MOVETO(268,159); 

MOVETO(199,159); 

MOVETO(199,79); 

PENCOLOR(NONE); 

FOR J:= 1 TO 7 DO (* GITTER ZEICHNEN *) 

BEGIN 

MOVETO(199,79+J*10); 

PENCOLOR(WHITE); 

M0VET0(268,79+J*10); 

PENCOLOR(NONE); 

END; 


FOR J:= 1 TO 6 DO 
BEGIN 

M0VET0(199+J*10,79); 
PENCOLOR(WHITE); 
M0VET0(199+J*10,159); 
PENCOLOR(NONE); 

END; 

CLEARFIELD; 

H:=0; V:=0; 

CROSSHAIR(H.V); 

OLDH:=H; OLDV:=V; 

ONE:=TRUE; 

CHARTYPE(S); 

PRINTAT(0,60,'Befehle :'); 

CHARTYPE(IO); 

PRINTAT(90,60,'weitere mit <Ret>...'); 

END; 
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PROCEDURE MENU1; 

BEGIN 

VIEWP0RT(0,279,0,59); 
FILLSCR£EN(BLACK); 

CHARTYPE(5); 

PRINTAT(0,44,’Zeichenwahl:'); 

CHARTYPE(IO); 

PRXNTAT(0,30,'W: hoch'); 
PRINTAT(0,20,'Z: runter’); 
PRINTAT(0,10,'A: links'); 
PRINTAT(0, 0,'S: rechts'); 

CHARTYPE(5); 

PRINTAT(100,44,'Editieren:'); 

CHARTYPE(IO); . 
PRINTAT(100,30,'I: hoch'); 
PRINTAT(100,20,’M: runter'); 
PRINTAT(100,10,'J: links'); 
PRINTAT(100, 0,'K: rechts'); 
PRINTAT(175,40,’Y: setzen'); 
PRINTAT(175,30,'N: loeschen'); 
PRINTAT(175,20,'C: init.'); 
PRINTAT(175,10,'G: holen'); 
PRINTAT(175, 0,'P: schreiben'); 
VIEWP0RT(0,279,0,191); 

END; 


PROCEDURE MENU2; 

BEGIN 

VIEWP0RT(0,279,0,59); 

FILLSCREEN(BLACK); 

MOVET0(0,40); 

PRINTAT(0,40,'Q:ende T:Satz sehr. R:Satz les.'); 


PRINTAT(10,24,'File laden :.') 

PRINTAT(10,9 , 'File speich.;.') 

VIEWPORT(0,279,0,191); 

END; 


BEGIN (* HAUPTPROGRAMM *) 

SETUP; 

MENU1; 

REPEAT 

READ(KEYBOARD,CHOICE); 
CASE CHOICE OF 
' ':BEGIN 

IF ONE THEN MENU2 
ELSE MENU1; 
0NE:= NOT ONE; 

END; 

'A':I:= (1+128-1) MOD 128; 
’S’:I:= (1+1) MOD 128; 
’Z’:I:= (1+16) MOD 128; 
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’W*:I:= (1+128-16) MOD 128; 
’G':BEGIN 

CURRENTCH:=CURRENTSET[I]; 
EXPAND(CURRENTCH); 
CROSSHAIR(H,V); 

END; 

'C':BEGIN 

CLEARFIELD; 

CROSSHAIR(H.V); 

END; 

’P';BEGXN 

CURRENTSETfl]:=CURRENTCH; 
SHOWCHAR(I); 

END; 


'R';BEGIN 

IF ONE THEN MENU2; 

FILEIN; 

ONE:=FALSE; 

END; 

’T':BEGIN 

IF ONE THEN MENU2; 

FILEOUT; 

ONE:=FALSE; 

END; 

’Y'tBEGIN 

CURRENTCH[V]:=CURRENTCH[V]+[H]; 
MOVETO(200+H*10,80+V*10); 
WCHAR(CHR(1)); 

CROSSHAIR(H,V); 

END; 

'N':BEGIN 

CURRENTCH[V]:=CURRENTCH[V]-[H]; 
M0VET0(200+H*10,80+V*10); 

WCHAR(' '); 

CROSSHAIR(H.V); 

END; 


’I':V:=(V+1) MOD 8; 


’M':V:=(V+8-l) MOD 8; 


'J':H:=(H+7-F) MOD 7; 

'K':H:=(H+1) MOD 7; 

END(* CASE *); 

IF CHOICE IN ['I’.'J'.'K'.'M'] THEN 
BEGIN 

CROSSHAIR(OLDH,OLDV); 

CROSSHAIR(H,V); 

OLDH:=H; OLDV:=V; 

END; 
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IF CHOICE IN ['WVA'.'SVZ'] THEN 
BEGIN 

HILITE(OU), BLACK); 

HILITE(I,WHITE); 

OLD:=I; 

END; 

UNTIL CHOICE='Q 1 ; 

END. 
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